diff options
| author | Diab Jerius <dj@head-cfa.harvard.edu> | 2002-07-08 14:44:12 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-08 23:26:49 +0000 |
| commit | 4afb7519d86e52b18cb15a8ff307f1cc0cfb8e0f (patch) | |
| tree | 4e9a287f8ce6ad9a1cd1bc19785dfe8cae3b7154 /lib | |
| parent | c3e0e61a76f0014fd5a0eaa46e3304c65816b46d (diff) | |
| download | perl-4afb7519d86e52b18cb15a8ff307f1cc0cfb8e0f.tar.gz | |
(retracted by #17444)
Subject: [ID 20020708.003] File::Spec::Unix::tmpdir automagically creates $ENV{TMPDIR}
Message-Id: <200207082244.g68MiDY22791@pelf.harvard.edu>
p4raw-id: //depot/perl@17428
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/Unix.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm index 87ee505102..c6ca111c14 100644 --- a/lib/File/Spec/Unix.pm +++ b/lib/File/Spec/Unix.pm @@ -141,8 +141,10 @@ is tainted, it is not used. my $tmpdir; sub tmpdir { return $tmpdir if defined $tmpdir; - my @dirlist = ($ENV{TMPDIR}, "/tmp"); + my @dirlist = ( "/tmp" ); + if ( exists $ENV{TMPDIR} ) { + unshift @dirlist, $ENV{TMPDIR}; no strict 'refs'; if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0 require Scalar::Util; |