Prefer C:/temp in Win32 as File::Spec->tmpdir to /tmp
Matt Sergeant [Fri, 16 Jun 2000 16:30:43 +0000 (16:30 +0000)]
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

lib/File/Spec/Win32.pm

index 505e578..5d3079e 100644 (file)
@@ -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;