diff options
Diffstat (limited to 'infra/dgit-repos-policy-debian')
| -rwxr-xr-x | infra/dgit-repos-policy-debian | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index 81f8d45..f15c742 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -545,6 +545,7 @@ sub action_check_list () { sub polclqu_tainted_objects () { check_package(); + my $suite = shift @ARGV // die "need SUITE"; my $topq = $poldbh->selectall_arrayref(<<END, SELECT taint_id, gitobjtype, gitobjid, time, comment @@ -572,7 +573,7 @@ END # We would reject this in push. We need to arrange that the # client will detect this. The object tainting mechanism can # be (ab)used for this: we tell the client that HEAD is tainted. - my $head = git_rev_parse('HEAD~0'); + my $head = git_rev_parse(server_ref($suite).'~0'); push @$topq, { gitobjtype => 'commit', gitobjid => $head, |