Make Perl version numbers more readable

diff --git a/t/03-fallback.t b/t/03-fallback.t
index c57c45eebb11eb9b96a24710a4fb8e2cd000a36d..a5db1524f8108e60e172708c673fe1f47b0e9d45 100644 (file)
--- a/t/03-fallback.t
+++ b/t/03-fallback.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 BEGIN {
- if ("$]" >= 5.008004 and "$]" <= 5.008005) {
+ if ("$]" >= 5.008_004 and "$]" <= 5.008_005) {
   require Test::More;
   Test::More::plan(skip_all
                        => 'goto may segfault randomly on perl 5.8.4 and 5.8.5');

diff --git a/t/80-threads.t b/t/80-threads.t
index 639c118972bee1771d47dc8aea8604c383b9ea63..4be8551bde15f5ca15cabcde4c406a835a4d7342 100644 (file)
--- a/t/80-threads.t
+++ b/t/80-threads.t
@@ -19,7 +19,7 @@ BEGIN {
  skipall 'This perl wasn\'t built to support threads'
                                                     unless $Config{useithreads};
  skipall 'perl 5.13.4 required to test thread safety'
-                                              unless $force or "$]" >= 5.013004;
+                                             unless $force or "$]" >= 5.013_004;
  skipall "threads $t_v required to test thread safety"
                                               unless eval "use threads $t_v; 1";
 }

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};
- 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 {