X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FScope%2FUpper%2FTestGenerator.pm;h=df175acf540437ed4f509e9a796fb56617fdd819;hb=20d82307d02d72e3b5e73cfa40588b3af52d81d4;hp=b4f6e1b6762d26e8aa179c468adbf54da8e70b6f;hpb=eefb9e3f4b67e0aa0e8c3e705d7f7010a49f0540;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/lib/Scope/Upper/TestGenerator.pm b/t/lib/Scope/Upper/TestGenerator.pm
index b4f6e1b..df175ac 100644
--- a/t/lib/Scope/Upper/TestGenerator.pm
+++ b/t/lib/Scope/Upper/TestGenerator.pm
@@ -32,7 +32,7 @@ my @blocks = (
  [ 'eval q[',   '];' ],
 );
 
-push @blocks, [ 'given (1) {', '}' ] if "$]" >= 5.010_001;
+push @blocks, [ 'given (1) {', '}' ] if "$]" >= 5.010_001 and "$]" < 5.037_010;
 
 my %exports = (
  verbose_is => \&verbose_is,