X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2Flib%2FLexical%2FTypes%2FTestRequired2.pm;h=52370715b776f58ee07d94e05e13c609ea4be70b;hp=eb15065f1aaa1a60820ce3782762610030beada6;hb=61f64dfa5fa4f435e6cd854d22e4325ef1eb0068;hpb=26192e1043cbd952cc7acaa033cc473ffd074085

diff --git a/t/lib/Lexical/Types/TestRequired2.pm b/t/lib/Lexical/Types/TestRequired2.pm
index eb15065..5237071 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.009005) {
   Test::More::is($y, undef, $desc);
  } else {
   Test::More::like($y, qr/^\(eval +\d+\):2$/, $desc);