Skip to content

bugzilla
bugzilla
Commit a28da9f2 authored by Frédéric Buclin's avatar Frédéric Buclin
Browse files
Options

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

parent 6e6093a1
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
Bugzilla.pm
View file @ a28da9f2
...@@ -87,7 +87,7 @@ sub init_page { ...@@ -87,7 +87,7 @@ sub init_page {
# On Windows, these paths are tainted, preventing # On Windows, these paths are tainted, preventing
# File::Spec::Win32->tmpdir from using them. But we need # File::Spec::Win32->tmpdir from using them. But we need
# a place to temporary store attachments which are uploaded. # 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}; trick_taint($ENV{$temp}) if $ENV{$temp};
} }
# Some DLLs used by Strawberry Perl are also in c\bin, # Some DLLs used by Strawberry Perl are also in c\bin,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment