diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-11 07:59:00 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 11:54:11 +0100 |
commit | 68fecefcb822012c8eaef19c4368a674111df509 (patch) | |
tree | 222cd0b8329309782cf99fdf3f6a63dece5d90c9 /infra | |
parent | 3eb14f7048c55754ee5ff6441623c0fe1ddd3641 (diff) |
dgit-repos-policy-debian: Fix error handling, and test fixes
Diffstat (limited to 'infra')
-rwxr-xr-x | infra/dgit-repos-policy-debian | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index b631d07..ac42712 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -88,7 +88,7 @@ sub apiquery ($) { $cmd .= " archive-api-query $subpath"; printdebug "apiquery $cmd\n"; $!=0; $?=0; my $json = `$cmd`; - defined $json or die "$subpath $! $?"; + defined $json && !$? or die "$subpath $! $?"; my $r = decode_json $json; my $d = new Data::Dumper([$r], [qw(r)]); printdebug "apiquery $subpath | ", $d->Dump() if $debuglevel>=2; |