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