]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Version requirements overhaul
authorVincent Pit <vince@profvince.com>
Wed, 18 Jul 2012 21:03:35 +0000 (23:03 +0200)
committerVincent Pit <vince@profvince.com>
Wed, 18 Jul 2012 21:03:35 +0000 (23:03 +0200)
Makefile.PL
t/20-localize-target.t
t/44-localize_delete-magic.t
t/63-uplevel-ctl.t
t/lib/Scope/Upper/TestGenerator.pm
t/lib/Scope/Upper/TestThreads.pm

index e98a6e1c3c043a91254be9c177c951d9f77f5ecd..299069ee9d28ec9eacbaa141cf568dc71345321f 100644 (file)
@@ -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",
index ad3574b6ef26860ebf53954c64520cf1aa39a984..c68a1a3428e2857b47b5f72b523de154d77aa5a7 100644 (file)
@@ -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;
index d118faefce49cc266dc2b437acaf4b956d832c97..9cfec7e3712cdfcc50e8197fcd24966a93535421 100644 (file)
@@ -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';
index 4f031bce414ef403fa3127dab8280810fc4129a5..fda4410f8791538e44e3e030b71f069acd43c713 100644 (file)
@@ -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 $@;
index a04148dbb42c954445039a2838a8f03c9c46b7c1..9ef65b8849474977047cd193d473d7755520c9ac 100644 (file)
@@ -26,7 +26,7 @@ my @blocks = (
 );
 
 sub import {
- if ("$]" >= 5.010001) {
+ if ("$]" >= 5.010_001) {
   push @blocks, [ 'given (1) {', '}' ];
   require feature;
   feature->import('switch');
index eed76e7b385096c722ee9269a9615cd51b737187..624065283f1b0bc06b396b6a1d8c05f2510b1c9b 100644 (file)
@@ -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 {