Replace $] by "$]"

[perl/modules/Test-Leaner.git] / t / lib / Test / Leaner / TestImport.pm

diff --git a/t/lib/Test/Leaner/TestImport.pm b/t/lib/Test/Leaner/TestImport.pm
index 0c556818793da7db446f44a70a9e06b37b8e7b81..30f786c71380d5a09decd8a16f635d606b88c495 100644 (file)
--- a/t/lib/Test/Leaner/TestImport.pm
+++ b/t/lib/Test/Leaner/TestImport.pm
@@ -78,7 +78,7 @@ sub test_import_arg {
  local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
 
  my $use_fallback = $ENV{PERL_TEST_LEANER_USES_TEST_MORE};
- if ($use_fallback and $^V ge v5.8.4 and $^V le v5.8.5) {
+ if ($use_fallback and "$]" >= 5.008004 and "$]" <= 5.008005) {
   Test::More::plan(skip_all
                        => 'goto may segfault randomly on perl 5.8.4 and 5.8.5');
  } else {