From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Jul 2002 15:50:45 +0000 (+0000)
Subject: Retract #17428, not needed in this version of File::Spec.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97ea268b1482091665a2c54da30873227f203194;p=p5sagit%2Fp5-mst-13.2.git

Retract #17428, not needed in this version of File::Spec.

p4raw-id: //depot/perl@17444
---

diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index c6ca111..87ee505 100644
--- a/lib/File/Spec/Unix.pm
+++ b/lib/File/Spec/Unix.pm
@@ -141,10 +141,8 @@ is tainted, it is not used.
 my $tmpdir;
 sub tmpdir {
     return $tmpdir if defined $tmpdir;
-    my @dirlist = ( "/tmp" );
-    if ( exists $ENV{TMPDIR} )
+    my @dirlist = ($ENV{TMPDIR}, "/tmp");
     {
-      unshift @dirlist, $ENV{TMPDIR};
 	no strict 'refs';
 	if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
             require Scalar::Util;