X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FScope%2FUpper%2FTestGenerator.pm;h=9ef65b8849474977047cd193d473d7755520c9ac;hb=6d9ec3d17a2589cf3a259893f7ae752f5474ecf5;hp=a04148dbb42c954445039a2838a8f03c9c46b7c1;hpb=e26cff534d772ff66c0cdf5761787f43c6b7c5ec;p=perl%2Fmodules%2FScope-Upper.git

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