Change 14543 by jhi@alpha on 2002/02/03 19:06:06
Subject: PATCH CPAN.pm
From: Mark-Jason Dominus <[EMAIL PROTECTED]>
Date: Sun, 03 Feb 2002 12:36:36 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/CPAN.pm#49 edit
Differences ...
==== //depot/perl/lib/CPAN.pm#49 (text) ====
Index: perl/lib/CPAN.pm
--- perl/lib/CPAN.pm.~1~ Sun Feb 3 12:15:05 2002
+++ perl/lib/CPAN.pm Sun Feb 3 12:15:05 2002
@@ -2270,6 +2270,9 @@
# 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);
End of Patch.
