Silence a warning from Module::CoreList that occurs when the module version is

something like X.XX_XX.

p4raw-id: //depot/perl@29471

diff --git a/lib/Module/CoreList.pm b/lib/Module/CoreList.pm
index add89ff..f6c69b0 100644 (file)
--- 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;