diff --git a/PBot/VERSION.pm b/PBot/VERSION.pm index f8b0ca62..98f56e8b 100644 --- a/PBot/VERSION.pm +++ b/PBot/VERSION.pm @@ -13,8 +13,8 @@ use warnings; # These are set automatically by the build/commit script use constant { BUILD_NAME => "PBot", - BUILD_REVISION => 643, - BUILD_DATE => "2014-06-14", + BUILD_REVISION => 644, + BUILD_DATE => "2014-06-15", }; 1; diff --git a/modules/c2english/c2eng.pl b/modules/c2english/c2eng.pl index cdb1ae3b..3415c425 100755 --- a/modules/c2english/c2eng.pl +++ b/modules/c2english/c2eng.pl @@ -31,17 +31,13 @@ $Parse::RecDescent::skip = '\s*'; my $parser; -if($opt_P) { +if($opt_P or !eval { require PCGrammar }) { precompile_grammar(); - exit 0; -} else { - if(!eval { require PCGrammar }) { - precompile_grammar(); - } require PCGrammar; - $parser = PCGrammar->new() or die "Bad grammar!\n"; } +$parser = PCGrammar->new() or die "Bad grammar!\n"; + if ($opt_o) { open(OUTFILE, ">>$opt_o"); *STDOUT = *OUTFILE{IO};