Only compare defined values with "ge" in Module::CoreList::first_release_raw

diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm
index 654196b..6ade31e 100644 (file)
--- a/dist/Module-CoreList/lib/Module/CoreList.pm
+++ b/dist/Module-CoreList/lib/Module/CoreList.pm
@@ -28,7 +28,7 @@ sub first_release_raw {
     my $version = shift;
 
     my @perls = $version
     my $version = shift;
 
     my @perls = $version

-        ? grep { exists $version{$_}{ $module } &&
+        ? grep { defined $version{$_}{ $module } &&

                         $version{$_}{ $module } ge $version } keys %version
         : grep { exists $version{$_}{ $module }             } keys %version;
 
                         $version{$_}{ $module } ge $version } keys %version
         : grep { exists $version{$_}{ $module }             } keys %version;