You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by he...@apache.org on 2018/10/18 18:28:38 UTC
svn commit: r1844277 - /spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
Author: hege
Date: Thu Oct 18 18:28:38 2018
New Revision: 1844277
URL: http://svn.apache.org/viewvc?rev=1844277&view=rev
Log:
Fix secure_tmpfile on Win32
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm?rev=1844277&r1=1844276&r2=1844277&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm Thu Oct 18 18:28:38 2018
@@ -1287,7 +1287,8 @@ If it cannot open a file after 20 tries,
# thanks to http://www2.picante.com:81/~gtaylor/autobuse/ for this code
sub secure_tmpfile {
- my $tmpdir = untaint_file_path($ENV{'TMPDIR'} || File::Spec->tmpdir());
+ my $tmpenv = am_running_on_windows() ? 'TMP' : 'TMPDIR';
+ my $tmpdir = untaint_file_path($ENV{$tmpenv} || File::Spec->tmpdir());
defined $tmpdir && $tmpdir ne ''
or die "util: cannot find a temporary directory, set TMP or TMPDIR in environment";