Fri Jul 24 03:13:41 2009: Request 48150 was acted upon. Transaction: Ticket created by bram.stapp...@gmail.com Queue: PAR-Packer Subject: Minor issue: Use of uninitialized value in length at PAR/Packer.pm line 784 Broken in: (no value) Severity: (no value) Owner: Nobody Requestors: bram.stapp...@gmail.com Status: new Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=48150 >
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")