diff options
| author | Solar Designer <solar@openwall.com> | 2004-01-26 04:22:18 +0300 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-01 17:40:02 +0000 |
| commit | 2359510ddb135dcc6e80153f51cff0a97b20b597 (patch) | |
| tree | b074c5df813a1e3e529f0330620b456ecc4988e6 /lib/Memoize/t/tie.t | |
| parent | a95a5f75a0e72874474834cd9e274afa0f23b6d8 (diff) | |
| download | perl-2359510ddb135dcc6e80153f51cff0a97b20b597.tar.gz | |
Re: [perl #15063] /tmp issues
Message-ID: <20040125222218.GA13499@openwall.com>
Remove insecure usage of /tmp from code and documentation
p4raw-id: //depot/perl@22258
Diffstat (limited to 'lib/Memoize/t/tie.t')
| -rwxr-xr-x | lib/Memoize/t/tie.t | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lib/Memoize/t/tie.t b/lib/Memoize/t/tie.t index e058674761..02c20d6fc7 100755 --- a/lib/Memoize/t/tie.t +++ b/lib/Memoize/t/tie.t @@ -29,14 +29,7 @@ sub n { $_[0]+1; } -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$$"; @files = ($file, "$file.db", "$file.dir", "$file.pag"); 1 while unlink @files; |