Replace $] by "$]"

[perl/modules/Lexical-Types.git] / t / lib / Lexical / Types / TestRequired2.pm

diff --git a/t/lib/Lexical/Types/TestRequired2.pm b/t/lib/Lexical/Types/TestRequired2.pm
index eb15065f1aaa1a60820ce3782762610030beada6..52370715b776f58ee07d94e05e13c609ea4be70b 100644 (file)
--- 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);