Change 34208 by [EMAIL PROTECTED] on 2008/08/20 13:55:37
Subject: Re: Re: [perl #30524] [PATCH] CGI.pm has poor list of temp
directories on Windows
From: [EMAIL PROTECTED]
Date: Wed, 20 Aug 2008 11:26:02 +0200 (CEST)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/CGI.pm#80 edit
Differences ...
==== //depot/perl/lib/CGI.pm#80 (text) ====
Index: perl/lib/CGI.pm
--- perl/lib/CGI.pm#79~34194~ 2008-08-10 10:11:24.000000000 -0700
+++ perl/lib/CGI.pm 2008-08-20 06:55:37.000000000 -0700
@@ -19,7 +19,7 @@
# http://stein.cshl.org/WWW/software/CGI/
$CGI::revision = '$Id: CGI.pm,v 1.257 2008/08/06 14:01:06 lstein Exp $';
-$CGI::VERSION='3.40';
+$CGI::VERSION='3.40_01';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
# UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
@@ -4050,6 +4050,14 @@
"${vol}${SL}Temporary Items",
"${SL}WWW_ROOT", "${SL}SYS\$SCRATCH",
"C:${SL}system${SL}temp");
+
+ if( $CGI::OS eq 'WINDOWS' ){
+ unshift @TEMP,
+ $ENV{TEMP},
+ $ENV{TMP},
+ $ENV{WINDIR} . $SL . 'TEMP';
+ }
+
unshift(@TEMP,$ENV{'TMPDIR'}) if defined $ENV{'TMPDIR'};
# this feature was supposed to provide per-user tmpfiles, but
End of Patch.
