From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 22 Oct 2001 21:43:44 +0000 (+0000)
Subject: At some point the #6234 has been lost from the mainline
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2874782890df6a09d26537b8aaa5969f989df6b9;p=p5sagit%2Fp5-mst-13.2.git

At some point the #6234 has been lost from the mainline
(noticed by Pudge; what's a Mac guy doing reading Win modules? :-)

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

diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index 4b10a7f..519fb86 100644
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -43,6 +43,7 @@ from the following list:
     $ENV{TMPDIR}
     $ENV{TEMP}
     $ENV{TMP}
+    C:/temp
     /tmp
     /
 
@@ -52,7 +53,7 @@ my $tmpdir;
 sub tmpdir {
     return $tmpdir if defined $tmpdir;
     my $self = shift;
-    foreach (@ENV{qw(TMPDIR TEMP TMP)}, qw(/tmp /)) {
+    foreach (@ENV{qw(TMPDIR TEMP TMP)}, qw(C:/temp /tmp /)) {
 	next unless defined && -d;
 	$tmpdir = $_;
 	last;