X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F20-localize-target.t;h=c68a1a3428e2857b47b5f72b523de154d77aa5a7;hb=e7846e7f6fded4c4a3139054c5206c1480711867;hp=ba77ea88a62b6f7bf677435057de5b66359501d9;hpb=e4175b0fdbe9a877f01c26f2b2a72aa977e75c98;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/20-localize-target.t b/t/20-localize-target.t
index ba77ea8..c68a1a3 100644
--- a/t/20-localize-target.t
+++ b/t/20-localize-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 70 + 4;
 
-use Scope::Upper qw/localize UP HERE/;
+use Scope::Upper qw<localize UP HERE>;
 
 # Scalars
 
@@ -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.008_001;
  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.008_001;
  eval q{
   no strict 'refs';
   local ${''} = 10;