diff options
Diffstat (limited to 'lib/CPAN.pm')
-rw-r--r-- | lib/CPAN.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 1ec27336f0..12256d6883 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); |