Commit a28da9f2 authored by Frédéric Buclin's avatar Frédéric Buclin

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

parent 6e6093a1
......@@ -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,
......
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