From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 26 Jun 2001 14:08:34 +0000 (+0000)
Subject: Also catfile() needs now to explicitly exported.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a8d8629c2f76f8bf161c70835b0a25c1571a0df;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 '/', @_ };