r27135 - in /branches/upstream/libspreadsheet-xlsx-perl/current: Changes MANIFEST META.yml lib/Spreadsheet/XLSX.pm t/0____________use.t t/1_____loreyna126.t t/1_____loreyna126.xlsx t/Spreadsheet-XLSX.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Nov 22 16:42:45 UTC 2008
Author: gregoa
Date: Sat Nov 22 16:42:43 2008
New Revision: 27135
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27135
Log:
[svn-upgrade] Integrating new upstream version, libspreadsheet-xlsx-perl (0.04)
Added:
branches/upstream/libspreadsheet-xlsx-perl/current/t/0____________use.t (with props)
branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.t (with props)
branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.xlsx (with props)
Removed:
branches/upstream/libspreadsheet-xlsx-perl/current/t/Spreadsheet-XLSX.t
Modified:
branches/upstream/libspreadsheet-xlsx-perl/current/Changes
branches/upstream/libspreadsheet-xlsx-perl/current/MANIFEST
branches/upstream/libspreadsheet-xlsx-perl/current/META.yml
branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.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=27135&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/Changes (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/Changes Sat Nov 22 16:42:43 2008
@@ -7,11 +7,14 @@
0.02 Mon May 12 07:02:31 UTC 2008
- - fixed a bug with 1st dictionnary string (thanx SSIMMS: http://rt.cpan.org/Public/Bug/Display.html?id=35489)
+ - fixed a bug with 1st dictionnary string (thanks SSIMMS: http://rt.cpan.org/Public/Bug/Display.html?id=35489)
- prereq relaxed (thanx SSIMMS: http://rt.cpan.org/Public/Bug/Display.html?id=35490)
0.03 Tue May 20 05:18:41 UTC 2008
- - fixed the incorrect mapping for columns > AA (thanx JMELTZER http://rt.cpan.org/Public/Bug/Display.html?id=36013)
+ - fixed the incorrect mapping for columns > AA (thanks JMELTZER http://rt.cpan.org/Public/Bug/Display.html?id=36013)
- added support for r:id attribute (Ibid)
+0.04 Fri Nov 14 09:25:47 MSK 2008
+
+ - RE fixed for the case of opening <t ...> with attributes (thanks Loreyna Yeung)
Modified: branches/upstream/libspreadsheet-xlsx-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/MANIFEST?rev=27135&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/MANIFEST (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/MANIFEST Sat Nov 22 16:42:43 2008
@@ -3,5 +3,7 @@
Makefile.PL
MANIFEST This list of files
README
-t/Spreadsheet-XLSX.t
+t/0____________use.t
+t/1_____loreyna126.t
+t/1_____loreyna126.xlsx
META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libspreadsheet-xlsx-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/META.yml?rev=27135&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/META.yml (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/META.yml Sat Nov 22 16:42:43 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Spreadsheet-XLSX
-version: 0.03
+version: 0.04
abstract: Perl extension for reading MS Excel 2007 files;
license: ~
author:
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=27135&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.pm (original)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/lib/Spreadsheet/XLSX.pm Sat Nov 22 16:42:43 2008
@@ -1,12 +1,11 @@
package Spreadsheet::XLSX;
-use 5.008008;
use strict;
use warnings;
our @ISA = qw();
-our $VERSION = '0.03';
+our $VERSION = '0.04';
use Archive::Zip;
@@ -28,7 +27,7 @@
if ($member_shared_strings) {
- foreach my $t ($member_shared_strings -> contents =~ /t\>([^\<]*)\<\/t/gsm) {
+ foreach my $t ($member_shared_strings -> contents =~ /\>([^\<]*)\<\/t/gsm) {
$t = $converter -> convert ($t) if $converter;
@@ -97,7 +96,7 @@
$col = ord ($1) - 65;
if ($2) {
- $col++;
+ $col++;
$col *= 26;
$col += (ord ($2) - 65);
}
@@ -247,6 +246,7 @@
Steve Simms
Joerg Meltzer
+ Loreyna Yeung
=head1 COPYRIGHT AND LICENSE
Added: branches/upstream/libspreadsheet-xlsx-perl/current/t/0____________use.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/t/0____________use.t?rev=27135&op=file
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/t/0____________use.t (added)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/t/0____________use.t Sat Nov 22 16:42:43 2008
@@ -1,0 +1,19 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl Spreadsheet-XLSC.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 2;
+
+BEGIN {
+ use_ok ('Archive::Zip');
+ use_ok ('Spreadsheet::XLSX');
+};
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
Propchange: branches/upstream/libspreadsheet-xlsx-perl/current/t/0____________use.t
------------------------------------------------------------------------------
svn:executable = *
Added: branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.t?rev=27135&op=file
==============================================================================
--- branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.t (added)
+++ branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.t Sat Nov 22 16:42:43 2008
@@ -1,0 +1,18 @@
+use Test::More tests => 3;
+
+BEGIN {
+
+ use Spreadsheet::XLSX;
+
+ my $fn = __FILE__;
+
+ $fn =~ s{t$}{xlsx};
+
+ my $excel = Spreadsheet::XLSX -> new ($fn);
+
+ ok (@{$excel -> {Worksheet}} == 3);
+ ok ($excel -> {Worksheet} -> [0] -> {Name} eq 'POST_DSENDS');
+ ok ($excel -> {Worksheet} -> [0] -> {Cells} [112] [0] -> {Val} eq 'RCS Thrust Vector Uncertainties ');
+
+};
+
Propchange: branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.t
------------------------------------------------------------------------------
svn:executable = *
Added: branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.xlsx
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.xlsx?rev=27135&op=file
==============================================================================
Binary file - no diff available.
Propchange: branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.xlsx
------------------------------------------------------------------------------
svn:executable = *
Propchange: branches/upstream/libspreadsheet-xlsx-perl/current/t/1_____loreyna126.xlsx
------------------------------------------------------------------------------
svn:mime-type = application/octet-stream
More information about the Pkg-perl-cvs-commits
mailing list