From: Vincent Pit <vince@profvince.com>
Date: Sat, 24 Aug 2013 18:17:35 +0000 (-0300)
Subject: Make Perl version numbers more readable
X-Git-Tag: v0.05~2
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=de0427488ee9f7973135b9568461a9572fed1c89;p=perl%2Fmodules%2FTest-Leaner.git

Make Perl version numbers more readable
---

diff --git a/t/03-fallback.t b/t/03-fallback.t
index c57c45e..a5db152 100644
--- 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 639c118..4be8551 100644
--- 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 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 {