Resolve [perl #121769] with regards consistency of trailing zeroes.
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 30 Apr 2014 18:53:30 +0000 (19:53 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 30 Apr 2014 19:23:55 +0000 (20:23 +0100)
Aliases were only being generated for perls >= 5.010, changed this
to >= 5.006

Found another place in corelist that required fixing for the doubling
problem.

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

index d2fb4ad..aa4a945 100644 (file)
@@ -152,7 +152,7 @@ if(exists $Opts{r} ){
         print "\nModule::CoreList has release info for the following perl versions:\n";
         my $versions = { };
         my $max_ver_len = max_mod_len(\%Module::CoreList::released);
-        for my $ver ( sort keys %Module::CoreList::released ) {
+        for my $ver ( grep !/0[01]0$/, sort keys %Module::CoreList::released ) {
           printf "%-${max_ver_len}s    %s\n", format_perl_version($ver), $Module::CoreList::released{$ver};
         }
         print "\n";
index 0fc31d2..5b65346 100644 (file)
@@ -11016,7 +11016,7 @@ sub _create_aliases {
     my ($hash) = @_;
 
     for my $version (keys %$hash) {
-        next unless $version >= 5.010;
+        next unless $version >= 5.006;
 
         my $padded = sprintf "%0.6f", $version;