From: Vincent Pit <vince@profvince.com>
Date: Wed, 18 Jul 2012 21:03:35 +0000 (+0200)
Subject: Version requirements overhaul
X-Git-Tag: v0.19~8
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=2f468390ee816db81380ced997a5b75660c01d46;hp=d5523f091e49e6c770977c9070d40b795be91bf4;p=perl%2Fmodules%2FScope-Upper.git

Version requirements overhaul
---

diff --git a/Makefile.PL b/Makefile.PL
index e98a6e1..299069e 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -68,7 +68,7 @@ WriteMakefile(
  PL_FILES         => {},
  @DEFINES,
  PREREQ_PM        => \%PREREQ_PM,
- MIN_PERL_VERSION => 5.006,
+ MIN_PERL_VERSION => '5.006',
  META_MERGE       => \%META,
  dist             => {
   PREOP    => "pod2text -u $file > \$(DISTVNAME)/README",
diff --git a/t/20-localize-target.t b/t/20-localize-target.t
index ad3574b..c68a1a3 100644
--- a/t/20-localize-target.t
+++ b/t/20-localize-target.t
@@ -67,7 +67,7 @@ undef *x;
 SKIP:
 {
  skip 'Can\'t localize through a reference before 5.8.1' => 2
-                                                             if "$]" < 5.008001;
+                                                            if "$]" < 5.008_001;
  eval q{
   no strict 'refs';
   local ${''} = 9;
@@ -82,7 +82,7 @@ SKIP:
 SKIP:
 {
  skip 'Can\'t localize through a reference before 5.8.1' => 2
-                                                             if "$]" < 5.008001;
+                                                            if "$]" < 5.008_001;
  eval q{
   no strict 'refs';
   local ${''} = 10;
diff --git a/t/44-localize_delete-magic.t b/t/44-localize_delete-magic.t
index d118fae..9cfec7e 100644
--- a/t/44-localize_delete-magic.t
+++ b/t/44-localize_delete-magic.t
@@ -55,7 +55,7 @@ our @a;
 SKIP:
 {
  skip '$NEGATIVE_INDICES has no special meaning on 5.8.0 and older' => 2
-                                                             if "$]" < 5.008001;
+                                                            if "$]" < 5.008_001;
  local $Scope::Upper::Test::TiedArray::NEGATIVE_INDICES = 1;
  local @a;
  tie @a, 'Scope::Upper::Test::TiedArray';
diff --git a/t/63-uplevel-ctl.t b/t/63-uplevel-ctl.t
index 4f031bc..fda4410 100644
--- a/t/63-uplevel-ctl.t
+++ b/t/63-uplevel-ctl.t
@@ -151,7 +151,7 @@ our $hurp;
 
 SKIP: {
  skip "Causes failures during global destruction on perl 5.8.[0126]" => 5
-                    if ("$]" >= 5.008 and "$]" <= 5.008002) or "$]" == 5.008006;
+                  if ("$]" >= 5.008 and "$]" <= 5.008_002) or "$]" == 5.008_006;
  my $desc = 'exception with an eval and a local $@ in between';
  local $hurp = 'durp';
  local $@;
diff --git a/t/lib/Scope/Upper/TestGenerator.pm b/t/lib/Scope/Upper/TestGenerator.pm
index a04148d..9ef65b8 100644
--- a/t/lib/Scope/Upper/TestGenerator.pm
+++ b/t/lib/Scope/Upper/TestGenerator.pm
@@ -26,7 +26,7 @@ my @blocks = (
 );
 
 sub import {
- if ("$]" >= 5.010001) {
+ if ("$]" >= 5.010_001) {
   push @blocks, [ 'given (1) {', '}' ];
   require feature;
   feature->import('switch');
diff --git a/t/lib/Scope/Upper/TestThreads.pm b/t/lib/Scope/Upper/TestThreads.pm
index eed76e7..6240652 100644
--- a/t/lib/Scope/Upper/TestThreads.pm
+++ b/t/lib/Scope/Upper/TestThreads.pm
@@ -27,7 +27,7 @@ sub import {
  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;
 
  my $t_v = $force ? '0' : '1.67';
  my $has_threads =  do {