Make Perl version numbers more readable

[perl/modules/Test-Leaner.git] / t / lib / Test / Leaner / TestImport.pm

diff --git a/t/lib/Test/Leaner/TestImport.pm b/t/lib/Test/Leaner/TestImport.pm
index 30f786c71380d5a09decd8a16f635d606b88c495..495aa6714faf4b9d57c2be9faea140a9e29e233e 100644 (file)
--- 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};
  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 {
   Test::More::plan(skip_all
                        => 'goto may segfault randomly on perl 5.8.4 and 5.8.5');
  } else {