From: Mark-Jason Dominus <mjd@plover.com>
Date: Sun, 3 Feb 2002 12:36:36 +0000 (-0500)
Subject: PATCH CPAN.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=909b20b51c199e602f7ee04a3822dcf1c71e344c;p=p5sagit%2Fp5-mst-13.2.git

PATCH CPAN.pm
Message-ID: <20020203173636.27451.qmail@plover.com>

p4raw-id: //depot/perl@14543
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 1ec2733..12256d6 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -2270,6 +2270,9 @@ sub localize {
     # where we did get a file from
     my(@reordered,$last);
     $CPAN::Config->{urllist} ||= [];
+    unless (ref $CPAN::Config->{urllist} eq 'ARRAY') {
+        warn "Malformed urllist; ignoring.  Configuration file corrupt?\n";
+    }
     $last = $#{$CPAN::Config->{urllist}};
     if ($force & 2) { # local cpans probably out of date, don't reorder
 	@reordered = (0..$last);