[PAUSE] CPAN Upload: A/AN/ANDK/CPAN-1.80_58.tar.gz

Message-ID: <87zmmgnwfl.fsf@k75.linux.bogus>

p4raw-id: //depot/perl@26563

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 212c6cf..200786b 100644 (file)
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -1,6 +1,6 @@
 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
 package CPAN;
-$VERSION = '1.80_57';
+$VERSION = '1.80_58';
 $VERSION = eval $VERSION;
 use strict;
 
@@ -4870,7 +4870,7 @@ sub prereq_pm {
             }
             my $areq;
             my $do_replace;
-            while (my($k,$v) = each %$req) {
+            while (my($k,$v) = each %{$req||{}}) {
                 if ($v =~ /\d/) {
                     $areq->{$k} = $v;
                 } elsif ($k =~ /[A-Za-z]/ &&