diff options
-rwxr-xr-x | infra/dgit-repos-policy-debian | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index 1e32d39..88759f7 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -302,10 +302,11 @@ END my ($taintinfoq,$overridesanyq,$untaintq,$overridesq); my $overridesstmt = <<END; - SELECT deliberately FROM taintoverrides WHERE ( 1 + SELECT deliberately FROM taintoverrides WHERE ( + 1=0 END my @overridesv = sort keys %deliberately; - $overridesstmt .= join '', (<<END x @overridesv); + $overridesstmt .= <<END foreach @overridesv; OR deliberately = ? END $overridesstmt .= <<END; @@ -351,6 +352,8 @@ Taint recorded$timeshow for $pkgshow Reason: $ti->{comment} END + printdebug "SQL overrides: @overridesv $taintid /\n$overridesstmt\n"; + $overridesq ||= $poldbh->prepare($overridesstmt); $overridesq->execute(@overridesv, $taintid); my ($ovwhy) = $overridesq->fetchrow_array(); |