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

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Fri May 21 14:57:33 2010
New Revision: 58184

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

Removed:
    trunk/libspreadsheet-xlsx-perl/META.yml
Modified:
    trunk/libspreadsheet-xlsx-perl/Changes
    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

Modified: trunk/libspreadsheet-xlsx-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/Changes?rev=58184&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/Changes (original)
+++ trunk/libspreadsheet-xlsx-perl/Changes Fri May 21 14:57:33 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: trunk/libspreadsheet-xlsx-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-xlsx-perl/debian/changelog?rev=58184&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/debian/changelog (original)
+++ trunk/libspreadsheet-xlsx-perl/debian/changelog Fri May 21 14:57:33 2010
@@ -1,3 +1,9 @@
+libspreadsheet-xlsx-perl (0.13-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Fri, 21 May 2010 16:55:59 +0200
+
 libspreadsheet-xlsx-perl (0.12-1) unstable; urgency=low
 
   [ Jonathan Yu ]

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=58184&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX.pm (original)
+++ trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX.pm Fri May 21 14:57:33 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: 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=58184&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Fmt2007.pm (original)
+++ trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Fmt2007.pm Fri May 21 14:57:33 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: 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=58184&op=diff
==============================================================================
--- trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Utility2007.pm (original)
+++ trunk/libspreadsheet-xlsx-perl/lib/Spreadsheet/XLSX/Utility2007.pm Fri May 21 14:57:33 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+))$';