Change 12596 by jhi@alpha on 2001/10/22 21:43:44
At some point the #6234 has been lost from the mainline
(noticed by Pudge; what's a Mac guy doing reading Win modules? :-)
Affected files ...
... //depot/perl/lib/File/Spec/Win32.pm#19 edit
Differences ...
==== //depot/perl/lib/File/Spec/Win32.pm#19 (text) ====
Index: perl/lib/File/Spec/Win32.pm
--- perl/lib/File/Spec/Win32.pm.~1~ Mon Oct 22 16:00:05 2001
+++ perl/lib/File/Spec/Win32.pm Mon Oct 22 16:00:05 2001
@@ -43,6 +43,7 @@
$ENV{TMPDIR}
$ENV{TEMP}
$ENV{TMP}
+ C:/temp
/tmp
/
@@ -52,7 +53,7 @@
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;
End of Patch.
