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