dgit-repos-policy-debian: Add a tiny bit of debugging output

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

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index e85e92c5ebf4531ccc20229c2f4004ba6a49b598..bc370d27358ccd1af68849ce2ae3cbfc12f34cee 100755 (executable)
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -461,7 +461,7 @@ END
             $mustreject = 1;
        } else {
            $stderr .= <<END;
-Forcing due to --deliberately-$ovwhy
+Forcing due to $ovwhy
 END
             $untaintq ||= $poldbh->prepare(<<END);
                 DELETE FROM taints WHERE taint_id = ?
@@ -546,6 +546,7 @@ for (;;) {
        die unless defined $rcode;
 
        $poldbh->commit;
+       printdebug "poldbh commit\n";
     };
     last unless length $@;
     die $@ unless ref $@ eq $db_busy_exception;