From 68fecefcb822012c8eaef19c4368a674111df509 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 11 May 2015 07:59:00 +0100 Subject: dgit-repos-policy-debian: Fix error handling, and test fixes --- infra/dgit-repos-policy-debian | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'infra/dgit-repos-policy-debian') 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; -- cgit v1.2.3