Fixed regressions in corelist with display of 0 ending perls

v5.x.10 perls were displaying twice in -a output

Both v5.x.0 and v5.x.10 perls were displaying twice in -v output

diff --git a/dist/Module-CoreList/Changes b/dist/Module-CoreList/Changes
index 7152d1b..4c3224c 100644 (file)
--- a/dist/Module-CoreList/Changes
+++ b/dist/Module-CoreList/Changes
@@ -1,5 +1,8 @@
 3.11
   - Prepared for v5.19.12
+  - Fix regression in corelist with -v output listing the same perl
+    multiple times
+  - Fix regression in corelist with v5.x.10 appearing twice in -a output
 
 3.10
   - Updated for v5.19.11

diff --git a/dist/Module-CoreList/corelist b/dist/Module-CoreList/corelist
index ec8c7d6..d2fb4ad 100644 (file)
--- a/dist/Module-CoreList/corelist
+++ b/dist/Module-CoreList/corelist
@@ -174,7 +174,7 @@ if(exists $Opts{r} ){
 if(exists $Opts{v} ){
     if( !$Opts{v} ) {
         print "\nModule::CoreList has info on the following perl versions:\n";
-        print format_perl_version($_)."\n" for sort keys %Module::CoreList::version;
+        print format_perl_version($_)."\n" for grep !/0[01]0$/, sort keys %Module::CoreList::version;
         print "\n";
         exit 0;
     }
@@ -383,7 +383,7 @@ sub max {
 sub display_a {
     my $mod = shift;
 
-    for my $v (grep !/000$/, sort keys %Module::CoreList::version ) {
+    for my $v (grep !/0[01]0$/, sort keys %Module::CoreList::version ) {
         next unless exists $Module::CoreList::version{$v}{$mod};
 
         my $mod_v = $Module::CoreList::version{$v}{$mod} || 'undef';