diff options
Diffstat (limited to 'lib/Memoize/t/tie_sdbm.t')
-rw-r--r-- | lib/Memoize/t/tie_sdbm.t | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lib/Memoize/t/tie_sdbm.t b/lib/Memoize/t/tie_sdbm.t index 48895355c6..588efd9561 100644 --- a/lib/Memoize/t/tie_sdbm.t +++ b/lib/Memoize/t/tie_sdbm.t @@ -28,14 +28,7 @@ if ($@) { print "1..4\n"; -if (eval {require File::Spec::Functions}) { - File::Spec::Functions->import('tmpdir', 'catfile'); - $tmpdir = tmpdir(); -} else { - *catfile = sub { join '/', @_ }; - $tmpdir = $ENV{TMP} || $ENV{TMPDIR} || '/tmp'; -} -$file = catfile($tmpdir, "md$$"); +$file = "md$$"; 1 while unlink $file, "$file.dir", "$file.pag"; if ( $^O eq 'VMS' ) { 1 while unlink "$file.sdbm_dir"; |