X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F16-scope.t;h=e62ceb0e53f6101d8ce1d4c5a4fc6c05771c80b3;hp=9e858dcfee4500d8e8b5f25d0047d913640b7b40;hb=20bcb585bd9651cd40e91ab49b3651aa7259c3a6;hpb=a0eeae209119b07c3961d3432055eccf84b3b37c

diff --git a/t/16-scope.t b/t/16-scope.t
index 9e858dc..e62ceb0 100644
--- a/t/16-scope.t
+++ b/t/16-scope.t
@@ -39,7 +39,7 @@ use lib 't/lib';
    ::is($z, __FILE__.':6', 'pragma in use at the end');
   }
  TESTREQUIRED3
- @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if "$]" <= 5.008003;
+ @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if "$]" <= 5.008_003;
  is         $@,     '',  'third require test didn\'t croak prematurely';
  is_deeply \@w,     [ ], 'third require test didn\'t warn';
  is_deeply \@decls, [ map "Int3$_", qw<X Z> ],