From: Tom Horsley <tom@amber.ssd.hcsc.com>
Date: Fri, 5 Sep 1997 00:00:00 +0000 (+0000)
Subject: CPAN Use of uninitialized value in newest perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12ed815334f7a48eb12f070ba0b7ed41e58552a8;p=p5sagit%2Fp5-mst-13.2.git

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