Subject: | Minor issue: Use of uninitialized value in length at PAR/Packer.pm line 784 |
Date: | Fri, 24 Jul 2009 09:13:18 +0200 |
To: | bug-PAR-Packer [...] rt.cpan.org |
From: | Bram Stappers <bram.stappers [...] gmail.com> |
First off: thanks for this wonderful tool!
Info
PAR::Packer: PAR-Packer-0.991
Perl:
This is perl, v5.8.9 built for x86_64-linux-thread-multi
(with 5 registered patches, see perl -V for more detail)
Copyright 1987-2008, Larry Wall
Binary build 825 [288577] provided by ActiveState http://www.ActiveState.com
Built Dec 14 2008 19:55:40
System:
Linux quadje 2.6.27.19-170.2.35.fc10.x86_64 #1 SMP Mon Feb 23 13:00:23
EST 2009 x86_64 x86_64 x86_64 GNU/Linux
Problem
pp invocation:
pp @build/ppflags.txt -o script.bin -S -a
"../generic/Unix/Win32.pm;lib/Win32.pm" -a
"../generic/Unix/Win32/AbsPath.pm;lib/Win32/AbsPath.pm" -a
"../generic/Unix/Win32/TieRegistry.pm;lib/Win32/TieRegistry.pm"
build/script.pl
Use of uninitialized value in length at
.../perl64/site/lib/PAR/Packer.pm line 784.
Use of uninitialized value in length at
.../perl64/site/lib/PAR/Packer.pm line 784.
with ppflags.txt:
-I inc1
-I inc2
-I inc3
-M mod1
-M mod2
-M mod3
Fix
(This just suppresses the symptom and the result works for me -- I
have no clue as to the root cause, since I did not bother to look for
it.)
--- ../site/lib/PAR/Packer.pm.org 2009-07-24 09:05:50.000000000 +0200
+++ ../site/lib/PAR/Packer.pm 2009-07-24 09:06:11.000000000 +0200
@@ -781,7 +781,7 @@
(my $privlib = $Config{privlib}) =~ s{\\}{/}g;
(my $archlib = $Config{archlib}) =~ s{\\}{/}g;
- foreach my $pfile (sort grep length $map{$_}, keys %map) {
+ foreach my $pfile (sort grep length($map{$_} || ''), keys %map) {
next if !$opt->{B} and (
($map{$pfile} eq "$privlib/$pfile") or
($map{$pfile} eq "$archlib/$pfile")