CPAN Use of uninitialized value in newest perl

p5p-msgid: 9708091738.AA16435@amber.ssd.hcsc.com

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index e3bb84b..8271076 100644 (file)
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -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