| Subject: | Character in "c" format wrapped |
In our tests (version 0.11), we're getting the warning:
Character in "c" format wrapped at /aissrc/inc/perl_5.8.0/lib/site_perl/5.8.0/OLE/Storage_Lite.pm line 1367.
Here's the problem:
sub LocalDate2OLE($)
{
my($raDate) = @_;
return "\x00" x 8 unless($raDate);
my ($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iHSec) = @{$raDate};
$iSec ||=0; $iMin ||=0; $iHour ||=0; $iDay ||=0; $iMon ||=0; $iYear ||=0; $iHSec ||=0;
[...]
#3. Make HEX string
my $iHex;
my $sRes = '';
for(my $i=0;$i<8;$i++) {
$iHex = $iBigDt % 0x100;
$sRes .= pack 'c', $iHex; <--- problem is here
$iBigDt /= 0x100;
}
return $sRes;
}
This is a call to pack, using the "c" format. Should it be "C" (uppercase) instead?