Skip Menu |

This queue is for tickets about the PAR-Packer CPAN distribution.

Report information
The Basics
Id: 48150
Status: new
Priority: 0/
Queue: PAR-Packer

People
Owner: Nobody in particular
Requestors: bram.stappers [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



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