From: Andreas König <a.koenig@mind.de>
Date: Sun, 1 Jan 2006 10:12:46 +0000 (+0100)
Subject: [PAUSE] CPAN Upload: A/AN/ANDK/CPAN-1.80_58.tar.gz
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ff97d55fe121603412688a1c49cc3299706ccd2;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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]/ &&