r29303 - in /trunk/libspreadsheet-read-perl: Changes MANIFEST META.yml README Read.pm debian/changelog examples/ss2tk examples/xls2csv examples/xlscat files/perc.xls t/35_perc.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon Jan 5 13:46:40 UTC 2009
Author: gregoa
Date: Mon Jan 5 13:46:37 2009
New Revision: 29303
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29303
Log:
New upstream release.
Added:
trunk/libspreadsheet-read-perl/files/perc.xls
- copied unchanged from r29302, branches/upstream/libspreadsheet-read-perl/current/files/perc.xls
trunk/libspreadsheet-read-perl/t/35_perc.t
- copied unchanged from r29302, branches/upstream/libspreadsheet-read-perl/current/t/35_perc.t
Modified:
trunk/libspreadsheet-read-perl/Changes
trunk/libspreadsheet-read-perl/MANIFEST
trunk/libspreadsheet-read-perl/META.yml
trunk/libspreadsheet-read-perl/README
trunk/libspreadsheet-read-perl/Read.pm
trunk/libspreadsheet-read-perl/debian/changelog
trunk/libspreadsheet-read-perl/examples/ss2tk
trunk/libspreadsheet-read-perl/examples/xls2csv
trunk/libspreadsheet-read-perl/examples/xlscat
Modified: trunk/libspreadsheet-read-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/Changes?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/Changes (original)
+++ trunk/libspreadsheet-read-perl/Changes Mon Jan 5 13:46:37 2009
@@ -1,4 +1,10 @@
Revision history for Spreadsheet::Read
+
+0.31 Sun 04 Jan 2009
+
+ - Upped Copyright notices to 2009
+ - Detection of percentage type
+ - Even more reliable detection of Date types
0.30 Mon 22 Dec 2008
Modified: trunk/libspreadsheet-read-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/MANIFEST?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/MANIFEST (original)
+++ trunk/libspreadsheet-read-perl/MANIFEST Mon Jan 5 13:46:37 2009
@@ -14,6 +14,7 @@
files/macosx.csv
files/macosx.xls
files/misc.xls
+files/perc.xls
files/test.csv
files/test_m.csv
files/test.ods
@@ -39,6 +40,7 @@
t/33_misc.t
t/32_fmt.t
t/34_dates.t
+t/35_perc.t
t/40_sxc.t
t/45_ods.t
t/46_clr.t
Modified: trunk/libspreadsheet-read-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/META.yml?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/META.yml (original)
+++ trunk/libspreadsheet-read-perl/META.yml Mon Jan 5 13:46:37 2009
@@ -1,6 +1,6 @@
--- #YAML:1.1
name: Read
-version: 0.30
+version: 0.31
abstract: Meta-Wrapper for reading spreadsheet data
license: perl
author:
@@ -10,7 +10,7 @@
provides:
Spreadsheet::Read:
file: Read.pm
- version: 0.30
+ version: 0.31
requires:
perl: 5.006
Exporter: 0
Modified: trunk/libspreadsheet-read-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/README?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/README (original)
+++ trunk/libspreadsheet-read-perl/README Mon Jan 5 13:46:37 2009
@@ -50,7 +50,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2005-2008 H.Merijn Brand
+Copyright (C) 2005-2009 H.Merijn Brand
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: trunk/libspreadsheet-read-perl/Read.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/Read.pm?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/Read.pm (original)
+++ trunk/libspreadsheet-read-perl/Read.pm Mon Jan 5 13:46:37 2009
@@ -21,7 +21,7 @@
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
sub Version { $VERSION }
use Carp;
@@ -358,12 +358,22 @@
my $fmt = $FmT->{FmtIdx}
? $oBook->{FormatStr}{$FmT->{FmtIdx}}
: undef;
- if (defined $fmt) {
+ if ($oWkC->{Type} eq "Numeric") {
# Fixed in 0.33 and up
- $oWkC->{Type} eq "Numeric" && $fmt =~ m{^[dmy][-\\/dmy]*$} and
+ # see Spreadsheet/ParseExcel/FmtDefault.pm
+ $FmT->{FmtIdx} == 0x0e ||
+ $FmT->{FmtIdx} == 0x0f ||
+ $FmT->{FmtIdx} == 0x10 ||
+ $FmT->{FmtIdx} == 0x11 ||
+ $FmT->{FmtIdx} == 0x16 ||
+ (defined $fmt && $fmt =~ m{^[dmy][-\\/dmy]*$}) and
$oWkC->{Type} = "Date";
- $fmt =~ s/\\//g;
+ $FmT->{FmtIdx} == 0x09 ||
+ $FmT->{FmtIdx} == 0x0a ||
+ (defined $fmt && $fmt =~ m{^0+\.0+%$}) and
+ $oWkC->{Type} = "Percentage";
}
+ defined $fmt and $fmt =~ s/\\//g;
$opt{cells} and # Formatted value
$sheet{$cell} = exists $def_fmt{$FmT->{FmtIdx}}
? $oFmt->ValFmt ($oWkC, $oBook)
@@ -876,7 +886,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2005-2008 H.Merijn Brand
+Copyright (C) 2005-2009 H.Merijn Brand
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: trunk/libspreadsheet-read-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/debian/changelog?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/debian/changelog (original)
+++ trunk/libspreadsheet-read-perl/debian/changelog Mon Jan 5 13:46:37 2009
@@ -1,3 +1,9 @@
+libspreadsheet-read-perl (0.31-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Mon, 05 Jan 2009 14:45:48 +0100
+
libspreadsheet-read-perl (0.30-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libspreadsheet-read-perl/examples/ss2tk
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/examples/ss2tk?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/examples/ss2tk (original)
+++ trunk/libspreadsheet-read-perl/examples/ss2tk Mon Jan 5 13:46:37 2009
@@ -1,7 +1,7 @@
#!/pro/bin/perl
# ss2tk: show SpreadSheet file in Tk::TableMatrix::Spreadsheet (*)
-# (m)'07 [26-06-2007] Copyright H.M.Brand 2005-2008
+# (m)'07 [26-06-2007] Copyright H.M.Brand 2005-2009
use strict;
use warnings;
Modified: trunk/libspreadsheet-read-perl/examples/xls2csv
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/examples/xls2csv?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/examples/xls2csv (original)
+++ trunk/libspreadsheet-read-perl/examples/xls2csv Mon Jan 5 13:46:37 2009
@@ -1,7 +1,7 @@
#!/pro/bin/perl
# xls2csv: Convert Microsoft Excel spreadsheet to CSV
-# (m)'08 [10-03-2008] Copyright H.M.Brand 2008-2008
+# (m)'08 [10-03-2008] Copyright H.M.Brand 2008-2009
use strict;
use warnings;
Modified: trunk/libspreadsheet-read-perl/examples/xlscat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-read-perl/examples/xlscat?rev=29303&op=diff
==============================================================================
--- trunk/libspreadsheet-read-perl/examples/xlscat (original)
+++ trunk/libspreadsheet-read-perl/examples/xlscat Mon Jan 5 13:46:37 2009
@@ -1,7 +1,7 @@
#!/pro/bin/perl
# xls2cat: show XLS/SXC file as Text
-# (m)'08 [10-10-2008] Copyright H.M.Brand 2005-2008
+# (m)'08 [10-10-2008] Copyright H.M.Brand 2005-2009
use strict;
use warnings;
More information about the Pkg-perl-cvs-commits
mailing list