Replace $] by "$]"

An old bug could cause $] to be initialized to a wrong decimal value.
Since its stringified value was always right, we use it instead.

Occurences of $^V were also replaced by $].

diff --git a/Makefile.PL b/Makefile.PL
index f4df485da4911a10d5411225efdac1cfc5b69621..a88b8161de0f2dd553f601454f351b41756a0920 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -15,13 +15,13 @@ for ($pl, $desc) {
 my @DEFINES;
 
 print "Checking if this is an official release of perl... ";
-my $is_release = ($] < 5.011) ? (defined($pl) || defined($desc) ? 0 : 1)
-                              : (defined($desc)                 ? 0 : 1);
+my $is_release = ("$]" < 5.011) ? (defined($pl) || defined($desc) ? 0 : 1)
+                                : (defined($desc)                 ? 0 : 1);
 push @DEFINES, "-DSU_RELEASE=$is_release";
 print $is_release  ? "yes\n" : "no\n";
 
 # Threads, Windows and 5.8.x don't seem to be best friends
-if ($^O eq 'MSWin32' && $^V lt v5.9.0) {
+if ($^O eq 'MSWin32' && "$]" < 5.009) {
  push @DEFINES, '-DSU_MULTIPLICITY=0';
 }
 

diff --git a/t/13-reap-ctl.t b/t/13-reap-ctl.t
index 3f5db2be79f13752335145c7d190a0a3554f8d87..6208642a9ccd595ef03a10d38b21dbb58c49bedf 100644 (file)
--- a/t/13-reap-ctl.t
+++ b/t/13-reap-ctl.t
@@ -137,7 +137,7 @@ $y = undef;
 
 SKIP:
 {
- skip 'Perl 5.10 required to test given/when' => 30 if $] < 5.010;
+ skip 'Perl 5.10 required to test given/when' => 30 if "$]" < 5.010;
 
  eval <<' GIVEN_TEST_1';
   use feature 'switch';

diff --git a/t/20-localize-target.t b/t/20-localize-target.t
index c352456f15ef5fb1043622f48d332f3c5fd83446..ad3574b6ef26860ebf53954c64520cf1aa39a984 100644 (file)
--- a/t/20-localize-target.t
+++ b/t/20-localize-target.t
@@ -66,7 +66,8 @@ undef *x;
 
 SKIP:
 {
- skip 'Can\'t localize through a reference before 5.8.1' => 2 if $] < 5.008001;
+ skip 'Can\'t localize through a reference before 5.8.1' => 2
+                                                             if "$]" < 5.008001;
  eval q{
   no strict 'refs';
   local ${''} = 9;
@@ -80,7 +81,8 @@ SKIP:
 
 SKIP:
 {
- skip 'Can\'t localize through a reference before 5.8.1' => 2 if $] < 5.008001;
+ skip 'Can\'t localize through a reference before 5.8.1' => 2
+                                                             if "$]" < 5.008001;
  eval q{
   no strict 'refs';
   local ${''} = 10;

diff --git a/t/23-localize-ctl.t b/t/23-localize-ctl.t
index 0bd356368d46d85c46e67c98d09ead8ee07fae9b..5f4046ea4b44fdd649c7852755b8021bd0496f7d 100644 (file)
--- a/t/23-localize-ctl.t
+++ b/t/23-localize-ctl.t
@@ -190,7 +190,7 @@ $y = undef;
 
 SKIP:
 {
- skip 'Perl 5.10 required to test given/when' => 30 if $] < 5.010;
+ skip 'Perl 5.10 required to test given/when' => 30 if "$]" < 5.010;
 
  eval <<' GIVEN_TEST_1';
   use feature 'switch';

diff --git a/t/44-localize_delete-magic.t b/t/44-localize_delete-magic.t
index 1a6282934bc081ecbd2ec59b974bb33300942bce..d118faefce49cc266dc2b437acaf4b956d832c97 100644 (file)
--- a/t/44-localize_delete-magic.t
+++ b/t/44-localize_delete-magic.t
@@ -54,7 +54,8 @@ our @a;
 
 SKIP:
 {
- skip '$NEGATIVE_INDICES has no special meaning on 5.8.0 and older' => 2 if $] < 5.008_001;
+ skip '$NEGATIVE_INDICES has no special meaning on 5.8.0 and older' => 2
+                                                             if "$]" < 5.008001;
  local $Scope::Upper::Test::TiedArray::NEGATIVE_INDICES = 1;
  local @a;
  tie @a, 'Scope::Upper::Test::TiedArray';

diff --git a/t/59-unwind-threads.t b/t/59-unwind-threads.t
index 236df4cf3b119fda1af940c166a247471ac7d599..65ef8272c18cf8d5c61a3de6af515a7ae3449566 100644 (file)
--- a/t/59-unwind-threads.t
+++ b/t/59-unwind-threads.t
@@ -17,7 +17,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.013004;
  skipall "threads $t_v required to test thread safety"
                                               unless eval "use threads $t_v; 1";
 }

diff --git a/t/lib/Scope/Upper/TestGenerator.pm b/t/lib/Scope/Upper/TestGenerator.pm
index 18ced2475f672c0380e48c08b9fe11c3228f3434..a04148dbb42c954445039a2838a8f03c9c46b7c1 100644 (file)
--- 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.010001) {
   push @blocks, [ 'given (1) {', '}' ];
   require feature;
   feature->import('switch');