--- 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+/

--- 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});