Subject: | typing error in C:/Perl/site/lib/PAR/Packer.pm lead to error |
Perl ActiveState 5.8.4
PAR 0.83
C:/Perl/site/lib/PAR/Packer.pm has typing error in line 872
$alias = s{^[a-zA-Z]:}{} if $^O eq 'MSWin32';
should be written:
$alias =~ s{^[a-zA-Z]:}{} if $^O eq 'MSWin32';
missing "~" (twiddle sign)
this lead to error if -a parameter used:
D:\Perl>pp -o test.exe -a foo.dll testpar.pl
Use of uninitialized value in substitution (s///) at C:/Perl/site/lib/PAR/Packer
.pm line 872.
error: no member name given for Archive::Zip::NewFileMember=HASH(0x22460c8)
at C:/Perl/site/lib/App/Packer/PAR.pm line 104
format error: can't find EOCD signature
Archive::Zip::Archive::_findEndOfCentralDirectory('Archive::Zip::Archive
=HASH(0xd18904)','IO::File=GLOB(0xd32e04)') called at C:/aperl58/site/lib/Archiv
e/Zip.pm line 945
Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archive=HASH(0x
d18904)','IO::File=GLOB(0xd32e04)','ppYr6J8.par') called at C:/aperl58/site/lib/
Archive/Zip.pm line 925
Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0xd18904)','ppYr
6J8.par') called at C:/aperl58/site/lib/Archive/Zip.pm line 523
Archive::Zip::Archive::new('Archive::Zip::Archive','ppYr6J8.par') called
at C:/aperl58/site/lib/Archive/Zip.pm line 211
Archive::Zip::new('Archive::Zip','ppYr6J8.par') called at -e line 388
eval {...} called at -e line 164
__par_pl::BEGIN() called at -e line 776
eval {...} called at -e line 776