X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=t%2Flib%2FTest%2FLeaner%2FTestImport.pm;fp=t%2Flib%2FTest%2FLeaner%2FTestImport.pm;h=495aa6714faf4b9d57c2be9faea140a9e29e233e;hp=30f786c71380d5a09decd8a16f635d606b88c495;hb=de0427488ee9f7973135b9568461a9572fed1c89;hpb=667993a63f2a5e9858b79392b14b9854753c1bcf

diff --git a/t/lib/Test/Leaner/TestImport.pm b/t/lib/Test/Leaner/TestImport.pm
index 30f786c..495aa67 100644
--- a/t/lib/Test/Leaner/TestImport.pm
+++ b/t/lib/Test/Leaner/TestImport.pm
@@ -78,7 +78,7 @@ sub test_import_arg {
  local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
 
  my $use_fallback = $ENV{PERL_TEST_LEANER_USES_TEST_MORE};
- if ($use_fallback and "$]" >= 5.008004 and "$]" <= 5.008005) {
+ if ($use_fallback and "$]" >= 5.008_004 and "$]" <= 5.008_005) {
   Test::More::plan(skip_all
                        => 'goto may segfault randomly on perl 5.8.4 and 5.8.5');
  } else {