r28351 - in /trunk/libspreadsheet-xlsx-perl: Changes META.yml debian/changelog lib/Spreadsheet/XLSX.pm lib/Spreadsheet/XLSX/Fmt2007.pm lib/Spreadsheet/XLSX/Utility2007.pm t/1_____loreyna126.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Thu Dec 18 19:53:42 2008
New Revision: 28351

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28351
Log:
New upstream release.

Modified:
    trunk/libspreadsheet-xlsx-perl/Changes
    trunk/libspreadsheet-xlsx-perl/META.yml
    trunk/libspreadsheet-xlsx-perl/debian/changelog
    trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX.pm
    trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Fmt2007.pm
    trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Utility2007.pm
    trunk/libspreadsheet-xlsx-perl/t/1_____loreyna126.t

Modified: trunk/libspreadsheet-xlsx-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/Changes?rev=28351&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/Changes (original)
+++ trunk/libspreadsheet-xlsx-perl/Changes Thu Dec 18 19:53:42 2008
@@ -31,4 +31,8 @@
 	
 0.06  Tue Dec 16 18:06:17 MSK 2008
 
-	- files missed from MANMIFEST and, therefore, from .tar.gz :-( Sorry, everybody!
+	- files missed from MANMIFEST and, therefore, from .tar.gz :-( Sorry, everybody!
+	
+0.07  Thu Dec 18 09:46:18 MSK 2008	
+
+	- "Use of uninitialized value ..." warnings suppressed (thanks Gregor Herrmann)

Modified: trunk/libspreadsheet-xlsx-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/META.yml?rev=28351&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/META.yml (original)
+++ trunk/libspreadsheet-xlsx-perl/META.yml Thu Dec 18 19:53:42 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Spreadsheet-XLSX
-version:             0.06
+version:             0.07
 abstract:            Perl extension for reading MS Excel 2007 files;
 license:             ~
 author:              

Modified: trunk/libspreadsheet-xlsx-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/debian/changelog?rev=28351&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/debian/changelog (original)
+++ trunk/libspreadsheet-xlsx-perl/debian/changelog Thu Dec 18 19:53:42 2008
@@ -1,4 +1,4 @@
-libspreadsheet-xlsx-perl (0.06-1) UNRELEASED; urgency=low
+libspreadsheet-xlsx-perl (0.07-1) UNRELEASED; urgency=low
 
   * New upstream release.
   * Add (build) dependency on libspreadsheet-parseexcel-perl as per new

Modified: trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX.pm?rev=28351&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX.pm (original)
+++ trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX.pm Thu Dec 18 19:53:42 2008
@@ -6,7 +6,7 @@
 
 our @ISA = qw();
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 use Archive::Zip;
 use Spreadsheet::XLSX::Fmt2007;
@@ -55,11 +55,11 @@
                         push @styles, $t;
 
                 }
-		my $default = $1;
+		my $default = $1 || '';
 
 		foreach my $t1 (@styles){
 			$member_styles -> contents =~ /numFmtId="$t1" formatCode="([^"]*)/;
-			my $formatCode=$1;
+			my $formatCode = $1 || '';
 			if ($formatCode eq $default || not($formatCode)){
 				if ($t1 == 9 || $t1==10){ $formatCode="0.00000%";}
 				elsif ($t1 == 14){ $formatCode="m-d-yy";}
@@ -68,7 +68,7 @@
 				}
 			}
 			$style_info{$t1} = $formatCode;
-			$default=$1;
+			$default = $1 || '';
 		}
 
         }
@@ -316,6 +316,7 @@
 	Joerg Meltzer
 	Loreyna Yeung	
 	Rob Polocz
+	Gregor Herrmann
 
 =head1 COPYRIGHT AND LICENSE
 

Modified: trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Fmt2007.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Fmt2007.pm?rev=28351&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Fmt2007.pm (original)
+++ trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Fmt2007.pm Thu Dec 18 19:53:42 2008
@@ -8,7 +8,7 @@
 use warnings;
 
 use Spreadsheet::XLSX::Utility2007 qw(ExcelFmt);
-our $VERSION = '0.06'; # 
+our $VERSION = '0.07'; # 
 
 my %hFmtDefault = (
     0x00 => '@',

Modified: trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Utility2007.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Utility2007.pm?rev=28351&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Utility2007.pm (original)
+++ trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Utility2007.pm Thu Dec 18 19:53:42 2008
@@ -14,7 +14,7 @@
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(ExcelFmt LocaltimeExcel ExcelLocaltime 
                 col2int int2col sheetRef xls2csv);
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 #my $sNUMEXP = '^[+-]?\d+(\.\d+)?$';
 #my $sNUMEXP = '(^[+-]?\d+(\.\d+)?$)|(^[+-]?\d\.*(\d+)[eE][+-](\d+))$';

Modified: trunk/libspreadsheet-xlsx-perl/t/1_____loreyna126.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/t/1_____loreyna126.t?rev=28351&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/t/1_____loreyna126.t (original)
+++ trunk/libspreadsheet-xlsx-perl/t/1_____loreyna126.t Thu Dec 18 19:53:42 2008
@@ -3,6 +3,7 @@
 BEGIN {
 
 	use Spreadsheet::XLSX;
+	use warnings;
 	
 	my $fn = __FILE__;