diff options
| author | Andreas König <a.koenig@mind.de> | 2006-01-01 11:12:46 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-02 11:04:37 +0000 |
| commit | 3ff97d55fe121603412688a1c49cc3299706ccd2 (patch) | |
| tree | ef049de282a7ccdd69c65f9a2a744b73c5a3b945 | |
| parent | b94e2f88b5f2c63d65c0fcd37652030bb9aee3ef (diff) | |
| download | perl-3ff97d55fe121603412688a1c49cc3299706ccd2.tar.gz | |
[PAUSE] CPAN Upload: A/AN/ANDK/CPAN-1.80_58.tar.gz
Message-ID: <87zmmgnwfl.fsf@k75.linux.bogus>
p4raw-id: //depot/perl@26563
| -rw-r--r-- | lib/CPAN.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 212c6cff03..200786b775 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]/ && |