From: Frédéric Buclin <LpSolit@gmail.com>
Date: Thu, 7 Jan 2016 00:45:27 +0000 (+0100)
Subject: Addl. fix for bug 1089448: also detaint $ENV{WINDIR} on Windows
X-Git-Tag: release-5.0.3~34
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=a28da9f20a7837b6d620235809d4f21583c23bdb;p=thirdparty%2Fbugzilla.git

Addl. fix for bug 1089448: also detaint $ENV{WINDIR} on Windows
---

diff --git a/Bugzilla.pm b/Bugzilla.pm
index aa78f14832..9cb15a7eec 100644
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -87,7 +87,7 @@ sub init_page {
             # On Windows, these paths are tainted, preventing
             # File::Spec::Win32->tmpdir from using them. But we need
             # a place to temporary store attachments which are uploaded.
-            foreach my $temp (qw(TMPDIR TMP TEMP)) {
+            foreach my $temp (qw(TMPDIR TMP TEMP WINDIR)) {
                 trick_taint($ENV{$temp}) if $ENV{$temp};
             }
             # Some DLLs used by Strawberry Perl are also in c\bin,