[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] fix eof condition
From: |
Akim Demaille |
Subject: |
[PATCH] fix eof condition |
Date: |
Sun, 09 Nov 2008 19:57:09 -0000 |
---
ChangeLog | 4 ++++
etc/bench.pl.in | 8 +++++---
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 8c4b8c9..663efd3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2008-11-09 Akim Demaille <address@hidden>
+ fix eof condition
+
+2008-11-09 Akim Demaille <address@hidden>
+
Fix --help.
2008-11-09 Akim Demaille <address@hidden>
diff --git a/etc/bench.pl.in b/etc/bench.pl.in
index 40023d3..1497a69 100755
--- a/etc/bench.pl.in
+++ b/etc/bench.pl.in
@@ -575,8 +575,7 @@ sub generate_grammar_list ($$@)
{
my ($base, $max, @directive) = @_;
my $directives = directives ($base, @directive);
- my $variant = grep { $_ eq '%define variant' } @directive;
-
+ my $variant = grep { /%define variant/ } @directive;
my $out = new IO::File ">$base.y"
or die;
print $out <<EOF;
@@ -917,7 +916,10 @@ sub parse (@)
{
@token = @_;
verbose 2, "Parsing: @token\n";
- return parse_expr ();
+ my @res = parse_expr ();
+ die "expected end of directives, unexpected: @token"
+ if defined $token[0];
+ return @res;
}
sub parse_expr ()
--
1.6.0.2.588.g3102
- [PATCH] fix eof condition,
Akim Demaille <=