| Subject: | problems with writing ole files. |
| Date: | Wed, 16 Apr 2014 18:52:09 -0400 |
| To: | bug-OLE-Storage_Lite [...] rt.cpan.org |
| From: | Alvin Starr <alvin [...] netvel.net> |
If I take test.xls and run it through the following code I get an output
file add_none.xls that is a different size.
#!/usr/bin/perl
## OLE::Storage_Lite Sample
# Name : smpadd.pl
# by Kawai, Takanori (Hippo2000) 2000.12.21, 2001.1.4, 2001.3.1
#=================================================================
use strict;
use OLE::Storage_Lite;
{
my $oOl = OLE::Storage_Lite->new('test.xls');
my $oPps = $oOl->getPpsTree(1);
die( "test.xls must be a OLE file") unless($oPps);
my $oFile = new IO::File;
$oFile->open('test.tmp', 'r');
$oPps->save('add_none.xls');
}
Also saving the output causes
Use of uninitialized value $year in numeric ge (>=) at
/usr/share/perl5/Time/Local.pm line 100, <GEN0> line 10141.
Use of uninitialized value $year in numeric lt (<) at
/usr/share/perl5/Time/Local.pm line 103, <GEN0> line 10141.
Use of uninitialized value $year in numeric ge (>=) at
/usr/share/perl5/Time/Local.pm line 103, <GEN0> line 10141.
Use of uninitialized value $year in numeric gt (>) at
/usr/share/perl5/Time/Local.pm line 104, <GEN0> line 10141.
Use of uninitialized value $month in numeric gt (>) at
/usr/share/perl5/Time/Local.pm line 108, <GEN0> line 10141.
Use of uninitialized value $month in numeric lt (<) at
/usr/share/perl5/Time/Local.pm line 108, <GEN0> line 10141.
Use of uninitialized value $month in array element at
/usr/share/perl5/Time/Local.pm line 112, <GEN0> line 10141.
Use of uninitialized value $month in numeric eq (==) at
/usr/share/perl5/Time/Local.pm line 113, <GEN0> line 10141.
Use of uninitialized value $mday in numeric gt (>) at
/usr/share/perl5/Time/Local.pm line 116, <GEN0> line 10141.
Use of uninitialized value $mday in numeric lt (<) at
/usr/share/perl5/Time/Local.pm line 116, <GEN0> line 10141.
Use of uninitialized value $mday in concatenation (.) or string at
/usr/share/perl5/Time/Local.pm line 116, <GEN0> line 10141.
Day '' out of range 1..31 at
/usr/share/perl5/vendor_perl/OLE/Storage_Lite.pm line 1368.
I believe that Storage_Lite.pm line 1364 should be changed from
return "\x00" x 8 unless $localtime;
to
return "\x00" x 8 unless @{$localtime}[0];
But my perl coding abilities are not the greatest so I am sure there is
a better way to do this.
--
Alvin Starr || voice: (905)513-7688
Netvel Inc. || Cell: (416)806-0133
alvin@netvel.net ||