add test for nonexistant polygen

master
joey 2006-07-30 21:54:03 +00:00
parent 73e6f81ef3
commit 26c2c63c97
1 changed files with 3 additions and 0 deletions

View File

@ -27,6 +27,9 @@ sub preprocess (@) { #{{{
$symbol =~ s/[^A-Za-z0-9]//g if defined $symbol; $symbol =~ s/[^A-Za-z0-9]//g if defined $symbol;
my $grmfile = '/usr/share/polygen/ita/polygen.grm'; my $grmfile = '/usr/share/polygen/ita/polygen.grm';
if (! -d '/usr/share/polygen') {
return "[[polygen not installed]]";
}
find({wanted => sub { find({wanted => sub {
if (substr($File::Find::name, -length($grammar)) eq $grammar) { if (substr($File::Find::name, -length($grammar)) eq $grammar) {
$grmfile = IkiWiki::possibly_foolish_untaint($File::Find::name); $grmfile = IkiWiki::possibly_foolish_untaint($File::Find::name);