Handle errors

lnussel · lnussel · commit 3dc7c133505a · 2020-10-06T10:34:05.000+02:00
diff --git a/spectool b/spectool
@@ -297,8 +297,8 @@ for my $spec (@specs) {
   my $cf = Build::read_config_dist($dist, $archs[0], $configdir);
   my $parsed = Build::parse($cf, $spec);
 
-  if (!defined $parsed) {
-    die "can't parse $spec\n";
+  if (!defined $parsed || $parsed->{'error'}) {
+    die "can't parse $spec: ".($parsed->{'error'}||'unknown error')."\n";
   }
 
   for my $tag (@opt_showtag) {

Original file line number	Diff line number	Diff line change
`@@ -297,8 +297,8 @@ for my $spec (@specs) {`
`297`	`297`	`my $cf = Build::read_config_dist($dist, $archs[0], $configdir);`
`298`	`298`	`my $parsed = Build::parse($cf, $spec);`
`299`	`299`
`300`		`- if (!defined $parsed) {`
`301`		`- die "can't parse $spec\n";`
	`300`	`+ if (!defined $parsed \|\| $parsed->{'error'}) {`
	`301`	`+ die "can't parse $spec: ".($parsed->{'error'}\|\|'unknown error')."\n";`
`302`	`302`	`}`
`303`	`303`
`304`	`304`	`for my $tag (@opt_showtag) {`