X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FScope%2FUpper%2FTestGenerator.pm;h=a04148dbb42c954445039a2838a8f03c9c46b7c1;hb=a26097967f907b721862e434af302d0bfb6b3e97;hp=99764d5618f3fad75c3198f9206d31d0c065b36c;hpb=f3c40d6f05f68f105430a219355dc4bd2979f3fe;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/lib/Scope/Upper/TestGenerator.pm b/t/lib/Scope/Upper/TestGenerator.pm
index 99764d5..a04148d 100644
--- a/t/lib/Scope/Upper/TestGenerator.pm
+++ b/t/lib/Scope/Upper/TestGenerator.pm
@@ -26,8 +26,8 @@ my @blocks = (
 );
 
 sub import {
- if ($] >= 5.010001) {
-  push @blocks, [ 'given (1) { my $_;', '}' ];
+ if ("$]" >= 5.010001) {
+  push @blocks, [ 'given (1) {', '}' ];
   require feature;
   feature->import('switch');
  }