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 fd70030394b47bfe11eb9a96ca02b19529e81502..30f786c71380d5a09decd8a16f635d606b88c495 100644 (file)
--- a/t/lib/Test/Leaner/TestImport.pm
+++ b/t/lib/Test/Leaner/TestImport.pm
@@ -51,6 +51,8 @@ my @default_exports = qw<
  BAIL_OUT
 >;
 
+sub default_exports { @default_exports }
+
 sub check_imports {
  my %imported     = map { $_ => 1 } @{ $_[0] || [] };
  my @not_imported = @{ $_[1] || [] };
@@ -76,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 {
@@ -185,7 +187,12 @@ sub test_import_arg {
  }
 }
 
-our @EXPORT = qw<
+our @EXPORT_OK = qw<
+ get_subroutine
+ has_module_version
+ has_test_more_version
+ has_exporter_version
+ default_exports
  test_import_arg
 >;