This queue is for tickets about the OLE-Storage_Lite CPAN distribution.

Report information
The Basics
Id:
94810
Status:
open
Priority:
Low/Low

People
Owner:
jmcnamara [...] cpan.org
Requestors:
alvin [...] netvel.net
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



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 ||
Could you attach the test file you used.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.