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

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,