r58182 - in /branches/upstream/libspreadsheet-xlsx-perl/current: Changes META.yml lib/Spreadsheet/XLSX.pm lib/Spreadsheet/XLSX/Fmt2007.pm lib/Spreadsheet/XLSX/Utility2007.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Fri May 21 14:55:25 UTC 2010


Author: gregoa
Date: Fri May 21 14:55:17 2010
New Revision: 58182

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58182
Log:
[svn-upgrade] Integrating new upstream version, libspreadsheet-xlsx-perl (0.13)

Removed:
    branches/upstream/libspreadsheet-xlsx-perl/current/META.yml
Modified:
    branches/upstream/libspreadsheet-xlsx-perl/current/Changes
    branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.pm
    branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Fmt2007.pm
    branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Utility2007.pm

Modified: branches/upstream/libspreadsheet-xlsx-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/Changes?rev=58182&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/Changes (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/Changes Fri May 21 14:55:17 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension Spreadsheet::XLSX.
+
+0.13  Sun May 16 13:08:12 MSD 2010
+
+	- ability to read xlsx from filehandle (RT #57483, thanks Sergey Pushkin)
 
 0.12  Tue Oct  6 10:04:37 MSD 2009
 

Modified: branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.pm?rev=58182&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.pm (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.pm Fri May 21 14:55:17 2010
@@ -6,7 +6,7 @@
 
 our @ISA = qw();
 
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 use Archive::Zip;
 use Spreadsheet::XLSX::Fmt2007;
@@ -21,8 +21,19 @@
 	
 	my $self = {};
 	
-	$self -> {zip} = Archive::Zip -> new ($filename) or die ("Cant't open $filename as a zip file\n");	
-	
+	$self -> {zip} = Archive::Zip -> new ();
+
+	if (ref $filename) {
+	
+		$self -> {zip} -> readFromFileHandle ($filename) == Archive::Zip::AZ_OK or die ("Cannot open data as Zip archive");
+	
+	} 
+	else {
+	
+		$self -> {zip} -> read ($filename) == Archive::Zip::AZ_OK or die ("Cannot open $filename as Zip archive");
+	
+	};
+
 	my $member_shared_strings = $self -> {zip} -> memberNamed ('xl/sharedStrings.xml');
 	
 	my @shared_strings = ();
@@ -328,6 +339,7 @@
 	H.Merijn Brand
 	endacoe
 	Pat Mariani
+	Sergey Pushkin
 	
 =head1 ACKNOWLEDGEMENTS	
 

Modified: branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Fmt2007.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Fmt2007.pm?rev=58182&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Fmt2007.pm (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Fmt2007.pm Fri May 21 14:55:17 2010
@@ -8,7 +8,7 @@
 use warnings;
 
 use Spreadsheet::XLSX::Utility2007 qw(ExcelFmt);
-our $VERSION = '0.12'; # 
+our $VERSION = '0.13'; # 
 
 my %hFmtDefault = (
     0x00 => '@',

Modified: branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Utility2007.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Utility2007.pm?rev=58182&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Utility2007.pm (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX/Utility2007.pm Fri May 21 14:55:17 2010
@@ -13,7 +13,7 @@
 use vars qw(@ISA @EXPORT_OK);
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(ExcelFmt LocaltimeExcel ExcelLocaltime col2int int2col sheetRef xls2csv);
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 my $sNUMEXP = '(^[+-]?\d+(\.\d+)?$)|(^[+-]?\d+\.?(\d*)[eE][+-](\d+))$';
 




More information about the Pkg-perl-cvs-commits mailing list