diff options
Diffstat (limited to 'etc')
-rwxr-xr-x | etc/bench.pl.in | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/etc/bench.pl.in b/etc/bench.pl.in index 153ae55d..6460a90c 100755 --- a/etc/bench.pl.in +++ b/etc/bench.pl.in @@ -1100,6 +1100,9 @@ sub getopt () Getopt::Long::Configure ("bundling", "pass_through"); GetOptions (%option) or exit 1; + my %grammars = map { $_ => 1 } qw[calc list triangular]; + die "invalid grammar: $grammar, valid: @{[keys %grammars]}\n" + if !exists($grammars{$grammar}); } ###################################################################### |