From: Matt Sergeant <matt@sergeant.org>
Date: Fri, 16 Jun 2000 16:30:43 +0000 (+0000)
Subject: Prefer C:/temp in Win32 as File::Spec->tmpdir to /tmp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89d835065e96a3f1cd84eb8dfa8a7ea8bfdd7a24;p=p5sagit%2Fp5-mst-13.2.git

Prefer C:/temp in Win32 as File::Spec->tmpdir to /tmp
because when run as services (Win32ese for daemons)
no environment variables are set and tmpdir ends up as /tmp,
which is ambiguous.

Subject:[ID 20000616.002] File::Spec->tmpdir broken when running as service
Message-Id: <20000616163043.26398.qmail@mail.sergeant.org>

p4raw-id: //depot/cfgperl@6234
---

diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index 505e578..5d3079e 100644
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -40,6 +40,7 @@ from the following list:
     $ENV{TMPDIR}
     $ENV{TEMP}
     $ENV{TMP}
+    C:/temp
     /tmp
     /
 
@@ -49,7 +50,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;