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 (file)
--- 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;