Commit 28ec15f1 authored by Frédéric Buclin's avatar Frédéric Buclin

Bug 987742 (part 2): correctly detaint $ENV{PATH} on Strawberry Perl

parent 6896e046
......@@ -96,6 +96,7 @@ sub init_page {
my $c_path = $path = dirname($^X);
$c_path =~ s/\bperl\b(?=\\bin)/c/;
$path .= ";$c_path";
trick_taint($path);
}
}
# Some environment variables are not taint safe
......
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