diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 21:43:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 21:43:44 +0000 |
| commit | 2874782890df6a09d26537b8aaa5969f989df6b9 (patch) | |
| tree | aeb574e72c9dfe30a3b1d19da2c07b19ac744d55 /lib | |
| parent | cb11fff93f78facdc8f5c177e1ef8e2dd23467e8 (diff) | |
| download | perl-2874782890df6a09d26537b8aaa5969f989df6b9.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/Win32.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm index 4b10a7fb21..519fb86e82 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; |