Also catfile() needs now to explicitly exported.

p4raw-id: //depot/perl@10966

diff --git a/lib/Memoize/t/tie.t b/lib/Memoize/t/tie.t
index c7083c5..9b9cd4f 100755 (executable)
--- a/lib/Memoize/t/tie.t
+++ b/lib/Memoize/t/tie.t
@@ -24,7 +24,7 @@ sub n {
 }
 
 if (eval {require File::Spec::Functions}) {
-  File::Spec::Functions->import('tmpdir');
+  File::Spec::Functions->import(qw(catfile tmpdir));
   $tmpdir = tmpdir();
 } else {
   *catfile = sub { join '/', @_ };

diff --git a/lib/Memoize/t/tie_sdbm.t b/lib/Memoize/t/tie_sdbm.t
index 51bd403..44e7d76 100644 (file)
--- a/lib/Memoize/t/tie_sdbm.t
+++ b/lib/Memoize/t/tie_sdbm.t
@@ -29,7 +29,7 @@ if ($@) {
 print "1..4\n";
 
 if (eval {require File::Spec::Functions}) {
- File::Spec::Functions->import('tmpdir');
+ File::Spec::Functions->import(qw(catfile tmpdir));
  $tmpdir = tmpdir();
 } else {
  *catfile = sub { join '/', @_ };