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