our $distro = shift @ARGV // die "need DISTRO";
our $repos = shift @ARGV // die "need DGIT-REPOS-DIR";
our $dgitlive = shift @ARGV // die "need DGIT-LIVE-DIR";
our $distro = shift @ARGV // die "need DISTRO";
our $repos = shift @ARGV // die "need DGIT-REPOS-DIR";
our $dgitlive = shift @ARGV // die "need DGIT-LIVE-DIR";
$poldbh->do("INSERT INTO taintoverrides".
" (taint_id, deliberately)".
$poldbh->do("INSERT INTO taintoverrides".
" (taint_id, deliberately)".
- " VALUES (?, 'include-questionable-history')", {},
- $taint_id);
+ " VALUES (?, '--deliberately-include-questionable-history')",
+ {}, $taint_id);
my $initq = $poldbh->prepare(<<END);
SELECT taint_id, gitobjid FROM taints t
my $initq = $poldbh->prepare(<<END);
SELECT taint_id, gitobjid FROM taints t
my ($taintinfoq,$overridesanyq,$untaintq,$overridesq);
my $overridesstmt = <<END;
my ($taintinfoq,$overridesanyq,$untaintq,$overridesq);
my $overridesstmt = <<END;
$overridesq ||= $poldbh->prepare($overridesstmt);
$overridesq->execute(@overridesv, $taintid);
my ($ovwhy) = $overridesq->fetchrow_array();
$overridesq ||= $poldbh->prepare($overridesstmt);
$overridesq->execute(@overridesv, $taintid);
my ($ovwhy) = $overridesq->fetchrow_array();