diff options
| author | Frédéric Buclin <LpSolit@gmail.com> | 2016-01-07 01:45:27 +0100 |
|---|---|---|
| committer | Frédéric Buclin <LpSolit@gmail.com> | 2016-01-07 01:45:27 +0100 |
| commit | a28da9f20a7837b6d620235809d4f21583c23bdb (patch) | |
| tree | 84f07eab8c02f754c253c8de4c09790705799552 | |
| parent | 6e6093a1ea2e44df70c1689e454a24c71cc33e54 (diff) | |
| download | bugs-a28da9f20a7837b6d620235809d4f21583c23bdb.tar bugs-a28da9f20a7837b6d620235809d4f21583c23bdb.tar.gz bugs-a28da9f20a7837b6d620235809d4f21583c23bdb.tar.bz2 bugs-a28da9f20a7837b6d620235809d4f21583c23bdb.tar.xz bugs-a28da9f20a7837b6d620235809d4f21583c23bdb.zip | |
Addl. fix for bug 1089448: also detaint $ENV{WINDIR} on Windows
| -rw-r--r-- | Bugzilla.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Bugzilla.pm b/Bugzilla.pm index aa78f1483..9cb15a7ee 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, |