fix taint issue

master
joey 2006-08-29 22:09:16 +00:00
parent a04c959af5
commit fe5c48f3a0
1 changed files with 1 additions and 0 deletions

View File

@ -25,6 +25,7 @@ sub preprocess (@) { #{{{
$grammar =~ s/\.grm$//; $grammar =~ s/\.grm$//;
$grammar .= '.grm'; $grammar .= '.grm';
$symbol =~ s/[^A-Za-z0-9]//g if defined $symbol; $symbol =~ s/[^A-Za-z0-9]//g if defined $symbol;
$symbol = IkiWiki::possibly_foolish_untaint($symbol) if defined $symbol;
my $grmfile = '/usr/share/polygen/ita/polygen.grm'; my $grmfile = '/usr/share/polygen/ita/polygen.grm';
if (! -d '/usr/share/polygen') { if (! -d '/usr/share/polygen') {