From 76fd2f8984309af7331c470d9340e03dcadae56f Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Thu, 7 Jan 2016 01:43:45 +0100
Subject: Addl. fix for bug 1089448: also detaint $ENV{WINDIR} on Windows

---
 Bugzilla.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Bugzilla.pm')

diff --git a/Bugzilla.pm b/Bugzilla.pm
index 16075b2d1..221a64f76 100644
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -90,7 +90,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,
-- 
cgit v1.2.3-24-g4f1b