dgit-repos-policy-debian: WIP bugfixes

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 3353d42dd1998324442fc6f5a1ac26e4ca15b106..e00fb5a3fe17e96fae3804c23bb054a6a3a1a2bf 100755 (executable)
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -83,7 +83,7 @@ our %deliberately;
 sub apiquery ($) {
     my ($subpath) = @_;
     local $/=undef;
 sub apiquery ($) {
     my ($subpath) = @_;
     local $/=undef;

-    my $cmd = "$dgitlive/dgit -d $distro \$DGIT_TEST_OPTS";
+    my $cmd = "$dgitlive/dgit -d$distro \$DGIT_TEST_OPTS";

     $cmd .= " -".("D" x $debuglevel) if $debuglevel;
     $cmd .= " archive-api-query $subpath";
     printdebug "apiquery $cmd\n";
     $cmd .= " -".("D" x $debuglevel) if $debuglevel;
     $cmd .= " archive-api-query $subpath";
     printdebug "apiquery $cmd\n";


@@ -199,7 +199,7 @@ sub add_taint_by_tag ($$) {
              " removed from NEW (ie, rejected) (or never arrived)");
 }
 
              " removed from NEW (ie, rejected) (or never arrived)");
 }
 

-sub action__check_package () {
+sub action_check_package () {

     getpackage();
     return 0 unless $pkg_exists;
     return 0 unless $pkg_secret;
     getpackage();
     return 0 unless $pkg_exists;
     return 0 unless $pkg_secret;