X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=blobdiff_plain;f=src%2Fupdate.pl;h=b5eae47e3dbdc64f7f9d1ae380eff52028789b6b;hp=63d3bff9abe6036f119c8d91898f28b55c71ec28;hb=f51455893abebac960943d1fabffcf009bfed681;hpb=e43dfedd76e5ac667ee855586f9b6776c5957e05

diff --git a/src/update.pl b/src/update.pl
index 63d3bff..b5eae47 100644
--- a/src/update.pl
+++ b/src/update.pl
@@ -96,8 +96,22 @@ sub key_version {
  "$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;
 
 {