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.0 +0200
+++ ../site/lib/PAR/Packer.pm 2009-07-24 09:06:11.0 +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)
