CPAN Use of uninitialized value in newest perl
Tom Horsley [Fri, 5 Sep 1997 00:00:00 +0000 (00:00 +0000)]
p5p-msgid: 9708091738.AA16435@amber.ssd.hcsc.com

lib/CPAN.pm

index e3bb84b..8271076 100644 (file)
@@ -2039,6 +2039,7 @@ sub rd_modpacks {
     while (<$fh>) {
        chomp;
        my($mod,$version,$dist) = split;
+$dist = '' unless defined $dist;
 ###    $version =~ s/^\+//;
 
        # if it as a bundle, instatiate a bundle object