fix Module-CoreList to support versions larger than 5

Important fixes include:
* sorting numerical versions using <=>
* properly computing the family for versions larger than 5

Author: book

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -12,7 +12,7 @@ sub _looks_like_invocant ($) { local $@; !!eval { $_[0]->isa(__PACKAGE__) } }
 sub _undelta {
     my ($delta) = @_;
     my (%expanded, $delta_from, $base, $changed, $removed);
-    for my $v (sort keys %$delta) {
+    for my $v (sort { $a <=> $b } keys %$delta) {
         ($delta_from, $changed, $removed) = @{$delta->{$v}}{qw( delta_from changed removed )};
         $base = $delta_from ? $expanded{$delta_from} : {};
         my %full = ( %$base, %{$changed || {}} );
@@ -54,7 +54,7 @@ sub first_release_raw {
 
     my @perls = $version
         ? grep { defined $version{$_}{ $module } &&
-                        $version{$_}{ $module } ge $version } keys %version
+                        $version{$_}{ $module } >= $version } keys %version
         : grep { exists $version{$_}{ $module }             } keys %version;
 
     return @perls;
@@ -69,7 +69,7 @@ sub first_release_by_date {
 sub first_release {
     my @perls = &first_release_raw;
     return unless @perls;
-    return (sort { $a cmp $b } @perls)[0];
+    return (sort { $a <=> $b } @perls)[0];
 }
 
 sub find_modules {
@@ -123,9 +123,9 @@ sub removed_from_by_date {
 sub removed_raw {
   shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];
   my $mod = shift;
-  return unless my @perls = sort { $a cmp $b } first_release_raw($mod);
+  return unless my @perls = sort { $a <=> $b } first_release_raw($mod);
   my $last = pop @perls;
-  my @removed = grep { $_ > $last } sort { $a cmp $b } keys %version;
+  my @removed = grep { $_ > $last } sort { $a <=> $b } keys %version;
   return @removed;
 }
 
@@ -431,11 +431,11 @@ sub changes_between {
     5.041005 => '2024-10-20',
     5.041006 => '2024-11-20',
     5.041007 => '2024-12-20',
-    5.041008 => '2025-01-20',
+    41.008   => '2025-01-20',
   );
 
 for my $version ( sort { $a <=> $b } keys %released ) {
-    my $family = int ($version * 1000) / 1000;
+    my $family = $version > 41 ? int($version) : int( $version * 1000 ) / 1000;
     push @{ $families{ $family }} , $version;
 }
 
@@ -22499,11 +22499,11 @@ for my $version ( sort { $a <=> $b } keys %released ) {
         removed => {
         }
     },
-    5.041008 => {
+    41.008 => {
         delta_from => 5.041007,
         changed => {
-            'B::Op_private'         => '5.041008',
-            'Config'                => '5.041008',
+            'B::Op_private'         => '41.008000',
+            'Config'                => '41.008000',
             'Module::CoreList'      => '5.20250120',
             'Module::CoreList::Utils'=> '5.20250120',
         },

dist/Module-CoreList/lib/Module/CoreList/Utils.pm

@@ -32,7 +32,7 @@ sub first_release_raw {
 
     my @perls = $version
         ? grep { exists $utilities{$_}{ $util } &&
-                        $utilities{$_}{ $util } ge $version } keys %utilities
+                        $utilities{$_}{ $util } >= $version } keys %utilities
         : grep { exists $utilities{$_}{ $util }             } keys %utilities;
 
     return grep { exists $Module::CoreList::released{$_} } @perls;
@@ -47,7 +47,7 @@ sub first_release_by_date {
 sub first_release {
     my @perls = &first_release_raw;
     return unless @perls;
-    return (sort { $a cmp $b } @perls)[0];
+    return (sort { $a <=> $b } @perls)[0];
 }
 
 sub removed_from {
@@ -63,10 +63,10 @@ sub removed_from_by_date {
 sub removed_raw {
   my $util = shift;
   $util = shift if eval { $util->isa(__PACKAGE__) };
-  return unless my @perls = sort { $a cmp $b } first_release_raw($util);
+  return unless my @perls = sort { $a <=> $b } first_release_raw($util);
   @perls = grep { exists $Module::CoreList::released{$_} } @perls;
   my $last = pop @perls;
-  my @removed = grep { $_ > $last } sort { $a cmp $b } keys %utilities;
+  my @removed = grep { $_ > $last } sort { $a <=> $b } keys %utilities;
   return @removed;
 }
 
@@ -2077,7 +2077,7 @@ my %delta = (
         removed => {
         }
     },
-    5.041008 => {
+    41.008 => {
         delta_from => 5.041007,
         changed => {
         },