git_for_each_ref: Fix FH handling

[dgit.git] / infra / dgit-repos-policy-debian

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 67975bd7ab0fffb4dcc51aa735accbd962a71bda..ac427127464f4c932baa460a9e8ad170626d552f 100755 (executable)
--- 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;
@@ -395,7 +395,7 @@ sub action_check_list () {
        statpackage();
        next unless $pkg_exists;
        next unless $pkg_secret;
-       printdebug "$pkg\n" or die $!;
+       print "$pkg\n" or die $!;
     }
     closedir L or die $!;
     close STDOUT or die $!;