policy-client-query tainted-objects: Add hint to spec and client

We're going to want to print a hint.  (In this case, the message that
would be printed to stderr if we rejected the actual push.)

Add it to the spec, and to the client code.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 5 insertions, 0 deletions

diff --git a/dgit b/dgit
index 357f9ed..2e6eeaf 100755
--- a/dgit
+++ b/dgit
@@ -4586,6 +4586,7 @@ END
             $dgithead
 	    or confess "$!";
     my $trouble = 0;
+    my %hinted;
     my $found = sub {
 	my ($objid) = @_;
 	my $t = $taints{$objid};
@@ -4601,6 +4602,10 @@ END
 		    $row->{comment};
 	    }
 	    $trouble = 1;
+	    my $hint = $row->{hint};
+	    if (defined $hint and !$hinted{$hint}++) {
+		print STDERR $hint;
+	    }
 	}
     };
     my $c_commit;