"$int$frac" => [ $num_version, $pretty_version ];
}
+my $latest_dev_rev = 19;
+
+sub perl_is_supported {
+ my $v = "$_[0]";
+
+ return unless $v >= '5.010001';
+
+ if ($v =~ /^5\.([0-9]{2}[13579])/) {
+ return $1 >= $latest_dev_rev;
+ }
+
+ return 1;
+}
+
my %perls = map key_version($_),
- grep "$_" >= '5.010001',
+ grep perl_is_supported($_),
keys %Module::CoreList::released;
{