r51510 - in /branches/upstream/libspreadsheet-parseexcel-perl/current: ./ examples/ lib/Spreadsheet/ lib/Spreadsheet/ParseExcel/ lib/Spreadsheet/ParseExcel/SaveParser/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Jan 25 01:14:45 UTC 2010
Author: jawnsy-guest
Date: Mon Jan 25 01:14:40 2010
New Revision: 51510
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51510
Log:
[svn-upgrade] Integrating new upstream version, libspreadsheet-parseexcel-perl (0.5700)
Added:
branches/upstream/libspreadsheet-parseexcel-perl/current/examples/
branches/upstream/libspreadsheet-parseexcel-perl/current/examples/a_simple_parser.pl
branches/upstream/libspreadsheet-parseexcel-perl/current/examples/display_text_table.pl
Modified:
branches/upstream/libspreadsheet-parseexcel-perl/current/Changes
branches/upstream/libspreadsheet-parseexcel-perl/current/MANIFEST
branches/upstream/libspreadsheet-parseexcel-perl/current/META.yml
branches/upstream/libspreadsheet-parseexcel-perl/current/Makefile.PL
branches/upstream/libspreadsheet-parseexcel-perl/current/README
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Cell.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Dump.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtDefault.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan2.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtUnicode.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Font.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Format.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Utility.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Workbook.pm
branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Worksheet.pm
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/Changes?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/Changes (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/Changes Mon Jan 25 01:14:40 2010
@@ -1,4 +1,15 @@
Revision history for Perl module Spreadsheet::ParseExcel.
+
+0.57 January 24 2010
+
+ ! Added fix for reading formatted data from Excel 4 files.
+
+ ! Added example programs, a_simple_parser.pl and
+ display_text_table.pl.
+
+ ! Removed Build.PL from README. Thanks Ed Avis.
+ https://rt.cpan.org/Ticket/Display.html?id=52670
+
0.56 November 9 2009
@@ -18,7 +29,7 @@
regression suite, t/06_regression.t.
! Added float comparison test to avoid false failing tests on
- 64bit systems.
+ 64bit systems.
0.54 August 25 2009
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/MANIFEST?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/MANIFEST (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/MANIFEST Mon Jan 25 01:14:40 2010
@@ -73,6 +73,9 @@
lib/Spreadsheet/ParseExcel/Workbook.pm
lib/Spreadsheet/ParseExcel/Worksheet.pm
+examples/a_simple_parser.pl
+examples/display_text_table.pl
+
sample/Excel/AuthorK.xls
sample/Excel/AuthorK95.xls
sample/Excel/FmtTest.xls
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/META.yml?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/META.yml (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/META.yml Mon Jan 25 01:14:40 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Spreadsheet-ParseExcel
-version: 0.56
+version: 0.57
abstract: Read information from an Excel file.
author:
- John McNamara (jmcnamara at cpan.org)
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/Makefile.PL?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/Makefile.PL (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/Makefile.PL Mon Jan 25 01:14:40 2010
@@ -31,7 +31,7 @@
'test' => { TESTS => 't/*.t' }
);
-if ( $ExtUtils::MakeMaker::VERSION >= 6.46 ) {
+if ( $ExtUtils::MakeMaker::VERSION ge '6.46' ) {
$params{META_MERGE} = { resources => \%resources };
}
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/README?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/README (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/README Mon Jan 25 01:14:40 2010
@@ -19,13 +19,6 @@
INSTALLATION
The module can be installed using the standard Perl procedure:
-
- perl Build.PL
- ./Build
- ./Build test
- ./Bbuild install
-
- or
perl Makefile.PL
make
Added: branches/upstream/libspreadsheet-parseexcel-perl/current/examples/a_simple_parser.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/examples/a_simple_parser.pl?rev=51510&op=file
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/examples/a_simple_parser.pl (added)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/examples/a_simple_parser.pl Mon Jan 25 01:14:40 2010
@@ -1,0 +1,43 @@
+#!/usr/bin/perl
+
+###############################################################################
+#
+# A simple Spreadsheet::ParseExcel Excel parser.
+#
+# reverse('©'), January 2010, John McNamara, jmcnamara at cpan.org
+#
+
+use warnings;
+use strict;
+use Spreadsheet::ParseExcel;
+
+my $filename = $ARGV[0] or die "Must specify filename to parse.\n";
+my $parser = Spreadsheet::ParseExcel->new();
+my $workbook = $parser->parse( $filename );
+
+if ( !defined $workbook ) {
+ die "Parsing error: ", $parser->error(), ".\n";
+}
+
+for my $worksheet ( $workbook->worksheets() ) {
+
+ print "Worksheet name: ", $worksheet->get_name(), "\n\n";
+
+ my ( $row_min, $row_max ) = $worksheet->row_range();
+ my ( $col_min, $col_max ) = $worksheet->col_range();
+
+ for my $row ( $row_min .. $row_max ) {
+ for my $col ( $col_min .. $col_max ) {
+
+ my $cell = $worksheet->get_cell( $row, $col );
+ next unless $cell;
+
+ print " Row, Col = ($row, $col)\n";
+ print " Value = ", $cell->value(), "\n";
+ print " Unformatted = ", $cell->unformatted(), "\n";
+ print "\n";
+ }
+ }
+}
+
+__END__
Added: branches/upstream/libspreadsheet-parseexcel-perl/current/examples/display_text_table.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/examples/display_text_table.pl?rev=51510&op=file
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/examples/display_text_table.pl (added)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/examples/display_text_table.pl Mon Jan 25 01:14:40 2010
@@ -1,0 +1,244 @@
+#!/usr/bin/perl
+
+###############################################################################
+#
+# A Spreadsheet::ParseExcel utility to display an Excel file in text format.
+#
+# The output maintains a spreadsheet like format for easy visualisation of
+# the data layout of the file. For example, a small file might be displayed
+# as follows:
+# ________
+# _| Sheet1 |__________________________________________________
+# |_____________________________________________________________|
+# | || | | |
+# | || A | B | C |
+# |_________||________________|________________|________________|
+# | 1 || Hello | Excel | |
+# |_________||________________|________________|________________|
+# | 2 || 1 | 2.00 | 3.000 |
+# |_________||________________|________________|________________|
+# | 3 || 2010-01-13 | | |
+# |_________||________________|________________|________________|
+# | 4 || A long string *| | |
+# |_________||________________|________________|________________|
+# * Note: Some data truncated to fit cells.
+#
+# reverse('©'), January 2010, John McNamara, jmcnamara at cpan.org
+#
+
+require 5.008;
+use warnings;
+use strict;
+use Spreadsheet::ParseExcel;
+
+# TODO. Should add configuration options. Maybe cell merging.
+# Option to display upto a certain column/row. Should use Pod::Usage also.
+
+my $cell_width = 14;
+my $left_column_width = 7;
+my $space_padding = 2;
+my $cell_padding = $space_padding + 1;
+my $data_truncated = 0;
+
+
+main();
+
+
+###############################################################################
+#
+# main().
+#
+# Run the main section of the program to extract the data from the Excel
+# workbook and print it out in a text table.
+#
+sub main {
+
+ my $filename = $ARGV[0] or die "Parsing error: must specify filename.\n";
+ my $parser = Spreadsheet::ParseExcel->new();
+ my $workbook = $parser->parse( $filename );
+
+ binmode STDOUT, ':encoding(utf8)';
+
+ # Check for errors from parse().
+ if ( !defined $workbook ) {
+ die "Parsing error: ", $parser->error(), ".\n";
+ }
+
+ # Iterate through the worksheets.
+ for my $worksheet ( $workbook->worksheets() ) {
+
+ # Track truncated data in each worksheet so we can print a warning.
+ $data_truncated = 0;
+
+ # Get the cell range for the worksheet.
+ my ( $row_min, $row_max ) = $worksheet->row_range();
+ my ( $col_min, $col_max ) = $worksheet->col_range();
+
+ # Max values of -1 indicate that the worksheet doesn't contain data,
+ # in which case we set the max to (0, 0) so that one cell is shown.
+ $row_max = 0 if $row_max == -1;
+ $col_max = 0 if $col_max == -1;
+
+ my $column_count = $col_max + 1;
+ my $worksheet_name = $worksheet->get_name();
+
+ # Print a dialog style tab with the sheet name.
+ print_sheet_tab( $worksheet_name, $column_count );
+
+ # Print the column headings 'A' .. 'IV'.
+ print_column_headers( $column_count );
+
+ # Iterate through the cell data and print out each row.
+ for my $row ( 0 .. $row_max ) {
+
+ # The first item of the row data is the row number.
+ my @row_data = ( $row + 1 );
+
+ for my $col ( 0 .. $col_max ) {
+ my $cell = $worksheet->get_cell( $row, $col );
+
+ # Get the formatted cell values or else store a blank string.
+ if ( $cell ) {
+ push @row_data, $cell->value();
+ }
+ else {
+ push @row_data, '';
+ }
+ }
+
+ # Print out the row data.
+ print_row( \@row_data );
+
+ }
+
+ # Print a warning if any data was truncated to fit the cells.
+ print "* Note: Some data truncated to fit cells.\n" if $data_truncated;
+ }
+ print "\n";
+}
+
+
+###############################################################################
+#
+# print_sheet_tab().
+#
+# Print a dialog style tab at the top of a worksheet with the sheet name.
+# This will look something like the following:
+# ________
+# _| Sheet1 |_________________
+# |____________________________|
+#
+sub print_sheet_tab {
+
+ my $sheet_name = shift;
+ my $column_count = shift;
+ my $sheet_name_width = length $sheet_name;
+
+ my $tab_width =
+ ( $cell_width + $cell_padding ) * $column_count +
+ $left_column_width +
+ $cell_padding;
+
+ print "\n";
+ print ' ', '_' x ( $sheet_name_width + $space_padding ), "\n";
+ printf " _| %-*.*s |", $sheet_name_width, $sheet_name_width, $sheet_name;
+ print '_' x ( $tab_width - $sheet_name_width - 5 ), "\n";
+ print '|', '_' x $tab_width, "|\n";
+
+}
+
+
+###############################################################################
+#
+# print_column_headers().
+#
+# Print the column headers at the top of a worksheet to get an effect like the
+# following. The headers are 3 lines high to distinguish them from other rows.
+# _____________________________________________________________
+# | || | | |
+# | || A | B | C |
+# |_________||________________|________________|________________|
+#
+sub print_column_headers {
+
+ my $count = shift;
+ my $column = 'A';
+ my @headers = ( '' );
+
+ # Store the column headers 'A' .. last.
+ push @headers, $column++ for 1 .. $count;
+
+ # Create a set of empty cells as wide as the column headers.
+ my @blanks = ( '' ) x @headers;
+
+ print_row( \@blanks, 1 );
+ print_row( \@headers );
+}
+
+
+###############################################################################
+#
+# print_row().
+#
+# Print out a row of data with formatting. Also place the row number in the
+# leftmost column to simulate the layout of a spreadsheet. Long strings are
+# truncated to the width of the cell and a warning asterisk is added. The final
+# effect is something like this:
+# _________ ________________ ________________ ________________
+# | 1 || Hello | Excel | |
+# |_________||________________|________________|________________|
+# | 2 || 1 | 2.00 | 3.000 |
+# |_________||________________|________________|________________|
+#
+sub print_row {
+
+ my $row = shift;
+ my $skip_bottom = shift;
+ my @data = @$row;
+ my $row_number = shift @data;
+
+ # Print the left column with the row number.
+ printf "| %-*s ||", $left_column_width, $row_number;
+
+ # Print the rest of the row data.
+ for my $data ( @data ) {
+ my $warning = ' ';
+
+ if ( length $data > $cell_width ) {
+ $warning = '*';
+ $data_truncated = 1;
+ }
+
+ # Print the data in the cell.
+ printf " %-*.*s%s|", $cell_width, $cell_width, $data, $warning;
+ }
+
+ print "\n";
+
+ # Print the line at the bottom of a row.
+ print_row_bottom( scalar @data ) unless $skip_bottom;
+}
+
+
+###############################################################################
+#
+# print_row_bottom().
+#
+# Print the bottom line of a row.
+#
+sub print_row_bottom {
+
+ my $column_count = shift;
+
+ # Print the left column.
+ print '|', '_' x ( $left_column_width + $space_padding ), '||';
+
+ # Print the bottom of the other cells.
+ for ( 1 .. $column_count ) {
+ print '_' x ( $cell_width + $space_padding ), '|';
+ }
+ print "\n";
+}
+
+__END__
+
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel.pm Mon Jan 25 01:14:40 2010
@@ -18,7 +18,7 @@
use OLE::Storage_Lite;
use IO::File;
use Config;
-our $VERSION = '0.56';
+our $VERSION = '0.57';
use Spreadsheet::ParseExcel::Workbook;
use Spreadsheet::ParseExcel::Worksheet;
@@ -86,7 +86,8 @@
0x2A => \&_subPrintHeaders, # Print Headers
0x2B => \&_subPrintGridlines, # Print Gridlines
0x3C => \&_subContinue, # Continue
- 0x43 => \&_subXF, # Extended Format(?)
+ 0x43 => \&_subXF, # XF for Excel < 4.
+ 0x0443 => \&_subXF, # XF for Excel = 4.
#Develpers' Kit P292
0x55 => \&_subDefColWidth, # Consider
@@ -1167,7 +1168,14 @@
$iFillP, $iFillCF, $iFillCB
);
- if ( $oBook->{BIFFVersion} == verBIFF8 ) {
+
+
+ if ( $oBook->{BIFFVersion} == verBIFF4 ) {
+ # Minimal support for Excel 4. We just get the font and format indices
+ # so that the cell data value can be formatted.
+ ( $iFnt, $iIdx,) = unpack( "CC", $sWk );
+ }
+ elsif ( $oBook->{BIFFVersion} == verBIFF8 ) {
my ( $iGen, $iAlign, $iGen2, $iBdr1, $iBdr2, $iBdr3, $iPtn );
( $iFnt, $iIdx, $iGen, $iAlign, $iGen2, $iBdr1, $iBdr2, $iBdr3, $iPtn )
@@ -1271,20 +1279,27 @@
# _subFormat (for Spreadsheet::ParseExcel) DK: P336
#------------------------------------------------------------------------------
sub _subFormat {
+
my ( $oBook, $bOp, $bLen, $sWk ) = @_;
my $sFmt;
- if ( ( $oBook->{BIFFVersion} == verBIFF2 )
- || ( $oBook->{BIFFVersion} == verBIFF3 )
- || ( $oBook->{BIFFVersion} == verBIFF4 )
- || ( $oBook->{BIFFVersion} == verBIFF5 ) )
- {
+
+ if ( $oBook->{BIFFVersion} <= verBIFF5 ) {
$sFmt = substr( $sWk, 3, unpack( 'c', substr( $sWk, 2, 1 ) ) );
$sFmt = $oBook->{FmtClass}->TextFmt( $sFmt, '_native_' );
}
else {
$sFmt = _convBIFF8String( $oBook, substr( $sWk, 2 ) );
}
- $oBook->{FormatStr}->{ unpack( 'v', substr( $sWk, 0, 2 ) ) } = $sFmt;
+
+ my $format_index = unpack( 'v', substr( $sWk, 0, 2 ) );
+
+ # Excel 4 and earlier used an index of 0 to indicate that a built-in format
+ # that was stored implicitly.
+ if ( $oBook->{BIFFVersion} <= verBIFF4 && $format_index == 0 ) {
+ $format_index = keys %{ $oBook->{FormatStr} };
+ }
+
+ $oBook->{FormatStr}->{$format_index} = $sFmt;
}
#------------------------------------------------------------------------------
@@ -2968,7 +2983,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Cell.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Cell.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Cell.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Cell.pm Mon Jan 25 01:14:40 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.56';
+our $VERSION = '0.57';
###############################################################################
#
@@ -301,7 +301,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Dump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Dump.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Dump.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Dump.pm Mon Jan 25 01:14:40 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.56';
+our $VERSION = '0.57';
my %NameTbl = (
@@ -341,7 +341,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtDefault.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtDefault.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtDefault.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtDefault.pm Mon Jan 25 01:14:40 2010
@@ -19,7 +19,7 @@
use warnings;
use Spreadsheet::ParseExcel::Utility qw(ExcelFmt);
-our $VERSION = '0.56';
+our $VERSION = '0.57';
my %hFmtDefault = (
0x00 => '@',
@@ -199,7 +199,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan.pm Mon Jan 25 01:14:40 2010
@@ -21,7 +21,7 @@
use Encode qw(find_encoding decode);
use base 'Spreadsheet::ParseExcel::FmtDefault';
-our $VERSION = '0.56';
+our $VERSION = '0.57';
my %FormatTable = (
0x00 => '@',
@@ -197,7 +197,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan2.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan2.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtJapan2.pm Mon Jan 25 01:14:40 2010
@@ -21,7 +21,7 @@
use Jcode;
use Unicode::Map;
use base 'Spreadsheet::ParseExcel::FmtJapan';
-our $VERSION = '0.56';
+our $VERSION = '0.57';
#------------------------------------------------------------------------------
# new (for Spreadsheet::ParseExcel::FmtJapan2)
@@ -90,7 +90,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtUnicode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtUnicode.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtUnicode.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/FmtUnicode.pm Mon Jan 25 01:14:40 2010
@@ -21,7 +21,7 @@
use Unicode::Map;
use base 'Spreadsheet::ParseExcel::FmtDefault';
-our $VERSION = '0.56';
+our $VERSION = '0.57';
#------------------------------------------------------------------------------
# new (for Spreadsheet::ParseExcel::FmtUnicode)
@@ -91,7 +91,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Font.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Font.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Font.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Font.pm Mon Jan 25 01:14:40 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.56';
+our $VERSION = '0.57';
sub new {
my ( $class, %rhIni ) = @_;
@@ -55,7 +55,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Format.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Format.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Format.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Format.pm Mon Jan 25 01:14:40 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.56';
+our $VERSION = '0.57';
sub new {
my ( $class, %rhIni ) = @_;
@@ -55,7 +55,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser.pm Mon Jan 25 01:14:40 2010
@@ -24,7 +24,7 @@
use Spreadsheet::WriteExcel;
use base 'Spreadsheet::ParseExcel';
-our $VERSION = '0.56';
+our $VERSION = '0.57';
###############################################################################
#
@@ -296,7 +296,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm Mon Jan 25 01:14:40 2010
@@ -19,7 +19,7 @@
use warnings;
use base 'Spreadsheet::ParseExcel::Workbook';
-our $VERSION = '0.56';
+our $VERSION = '0.57';
#==============================================================================
# Spreadsheet::ParseExcel::SaveParser::Workbook
@@ -423,7 +423,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm Mon Jan 25 01:14:40 2010
@@ -23,7 +23,7 @@
#==============================================================================
use base 'Spreadsheet::ParseExcel::Worksheet';
-our $VERSION = '0.56';
+our $VERSION = '0.57';
sub new {
my ( $sClass, %rhIni ) = @_;
@@ -78,7 +78,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Utility.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Utility.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Utility.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Utility.pm Mon Jan 25 01:14:40 2010
@@ -24,7 +24,7 @@
@EXPORT_OK = qw(ExcelFmt LocaltimeExcel ExcelLocaltime
col2int int2col sheetRef xls2csv);
-our $VERSION = '0.56';
+our $VERSION = '0.57';
my $qrNUMBER = qr/(^[+-]?\d+(\.\d+)?$)|(^[+-]?\d+\.?(\d*)[eE][+-](\d+))$/;
@@ -1595,7 +1595,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Workbook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Workbook.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Workbook.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Workbook.pm Mon Jan 25 01:14:40 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.56';
+our $VERSION = '0.57';
###############################################################################
#
@@ -284,7 +284,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
Modified: branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Worksheet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Worksheet.pm?rev=51510&op=diff
==============================================================================
--- branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Worksheet.pm (original)
+++ branches/upstream/libspreadsheet-parseexcel-perl/current/lib/Spreadsheet/ParseExcel/Worksheet.pm Mon Jan 25 01:14:40 2010
@@ -19,7 +19,7 @@
use warnings;
use Scalar::Util qw(weaken);
-our $VERSION = '0.56';
+our $VERSION = '0.57';
###############################################################################
#
@@ -951,7 +951,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 John McNamara
+Copyright (c) 2009-2010 John McNamara
Copyright (c) 2006-2008 Gabor Szabo
More information about the Pkg-perl-cvs-commits
mailing list