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")

Reply via email to