# HG changeset patch
# User "Tomas Zeman <tzeman@volny.cz>"
# Date 1259859904 -3600
# Node ID 78285474e8d358b191559338efde4dd66f3c2866
# Parent  6669e636dfa27473ebc78fef83dc06664c343e41
parser: die if parsing failed

diff -r 6669e636dfa2 -r 78285474e8d3 cisco.grammar
--- a/cisco.grammar	Thu Dec 03 01:09:55 2009 +0100
+++ b/cisco.grammar	Thu Dec 03 18:05:04 2009 +0100
@@ -50,7 +50,7 @@
 		| l_hash eol
 		| word(s) eol
 
-word:		/[0-9a-zA-Z:\/_\#\"\.,+<>()&{}-]+/
+word:		/[0-9a-zA-Z:\/_\#\"\.,+<>()&{}=-]+/
 		{ $item[1] }
 
 type:		/\w+/
diff -r 6669e636dfa2 -r 78285474e8d3 parser
--- a/parser	Thu Dec 03 01:09:55 2009 +0100
+++ b/parser	Thu Dec 03 18:05:04 2009 +0100
@@ -68,6 +68,7 @@
 
 $::res = {}; # parse tree result
 my $p_res = $parser->file($content);
+defined $p_res || die "Parser failed";
 my $storable = $opts->{o};
 store($::res, $storable) if (defined $storable && length($storable) > 0);
 print Dumper $::res if ($opts->{d});