diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2002-02-03 07:36:36 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 19:06:06 +0000 |
| commit | 909b20b51c199e602f7ee04a3822dcf1c71e344c (patch) | |
| tree | 071e8659d37e6b94123c385aeae23f596d8b78e2 /lib/CPAN.pm | |
| parent | fa1e5b33d8f2b3b36e42329ea28659ab586aa651 (diff) | |
| download | perl-909b20b51c199e602f7ee04a3822dcf1c71e344c.tar.gz | |
PATCH CPAN.pm
Message-ID: <20020203173636.27451.qmail@plover.com>
p4raw-id: //depot/perl@14543
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); |