diff options
author | Steve Peters <steve@fisharerojo.org> | 2006-12-05 21:00:38 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2006-12-05 21:00:38 +0000 |
commit | 482096f125c7b414421b33a75e090d36897a5f3e (patch) | |
tree | 938c97f55c1ce5d64c9f07b7a9a6b82651dda536 /lib | |
parent | 1fd1213a7b551f5b3fc24c317118ef268b06783e (diff) | |
download | perl-482096f125c7b414421b33a75e090d36897a5f3e.tar.gz |
Silence a warning from Module::CoreList that occurs when the module version is
something like X.XX_XX.
p4raw-id: //depot/perl@29471
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Module/CoreList.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Module/CoreList.pm b/lib/Module/CoreList.pm index add89ff93c..f6c69b0190 100644 --- a/lib/Module/CoreList.pm +++ b/lib/Module/CoreList.pm @@ -1,7 +1,7 @@ package Module::CoreList; use strict; use vars qw/$VERSION %released %patchlevel %version %families/; -$VERSION = '2.09'; +$VERSION = '2.09_01'; =head1 NAME @@ -97,7 +97,7 @@ sub first_release { my @perls = $version ? grep { exists $version{$_}{ $module } && - $version{$_}{ $module } >= $version } keys %version + $version{$_}{ $module } ge $version } keys %version : grep { exists $version{$_}{ $module } } keys %version; return unless @perls; |