X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2Flib%2FLexical%2FTypes%2FTestRequired2.pm;h=f0fa63374a5d4f8ad80540adbbd29fec641dacea;hp=52370715b776f58ee07d94e05e13c609ea4be70b;hb=20bcb585bd9651cd40e91ab49b3651aa7259c3a6;hpb=a0eeae209119b07c3961d3432055eccf84b3b37c

diff --git a/t/lib/Lexical/Types/TestRequired2.pm b/t/lib/Lexical/Types/TestRequired2.pm
index 5237071..f0fa633 100644
--- a/t/lib/Lexical/Types/TestRequired2.pm
+++ b/t/lib/Lexical/Types/TestRequired2.pm
@@ -15,7 +15,7 @@ Test::More::is($x, 't/lib/Lexical/Types/TestRequired2.pm:' . (__LINE__-1), 'prag
 eval q!
  my Int $y;
  my $desc = 'pragma in use in eval in require';
- if ("$]" <  5.009005) {
+ if ("$]" <  5.009_005) {
   Test::More::is($y, undef, $desc);
  } else {
   Test::More::like($y, qr/^\(eval +\d+\):2$/, $desc);