Additional helpful information in error messages.

This commit is contained in:
Kevin Quick 2018-06-29 17:41:23 -07:00
parent 879333fd3c
commit e523e8a643
2 changed files with 2 additions and 2 deletions

View file

@ -56,7 +56,7 @@ sub updateDeclarativeJobset {
$input->jobsetinputalts->create({altnr => 0, value => $data->{value}}); $input->jobsetinputalts->create({altnr => 0, value => $data->{value}});
} }
delete $declSpec->{"inputs"}; delete $declSpec->{"inputs"};
die "invalid keys in declarative specification file\n" if (%{$declSpec}); die "invalid keys ($declSpec) in declarative specification file\n" if (%{$declSpec});
}); });
}; };

View file

@ -425,7 +425,7 @@ sub run {
sub grab { sub grab {
my (%args) = @_; my (%args) = @_;
my $res = run(%args, grabStderr => 0); my $res = run(%args, grabStderr => 0);
die "command `@{$args{cmd}}' failed with exit status $res->{status}" if $res->{status}; die "command `@{$args{cmd}}' failed with exit status $res->{status} in $args{dir}" if $res->{status};
return $res->{stdout}; return $res->{stdout};
} }