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 (file)
--- 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);