(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

diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index 87ee505..c6ca111 100644 (file)
--- 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;