Commit e464899c authored by Ivo De Decker's avatar Ivo De Decker

testing_autoremovals_gatherer.pl: support build-depends-arch

Signed-off-by: Ivo De Decker's avatarIvo De Decker <ivodd@debian.org>
parent a2990efe
......@@ -16,6 +16,7 @@ my $testing = "";
my $removaldelay = 15*24*3600;
my $removaldelay_rdeps = 30*24*3600;
my $debug = 0;
$| = 1 if $debug;
# set to 0 to disable autoremoval of rdeps
my $POPCON_PERCENT = 5; # x% of submissions must have the package installed
......@@ -563,7 +564,7 @@ sub get_autoremoval_info {
sub read_source_depends {
my ($dbh,$needs) = @_;
my $query = "select source, version, build_depends, build_depends_indep from sources ".
my $query = "select source, version, build_depends, build_depends_indep, build_depends_arch from sources ".
" where release = '$testing' and extra_source_only is null;";
my $sthc = do_query($dbh,$query);
while (my $pg = $sthc->fetchrow_hashref()) {
......@@ -573,7 +574,7 @@ sub read_source_depends {
my $depstr = '';
die "Sources has paragraph without Source and Version field\n"
unless defined $src && defined $version;
foreach my $f (qw(build_depends build_depends_indep)) {
foreach my $f (qw(build_depends build_depends_indep build_depends_arch)) {
my $val = $pg->{$f};
next unless $val;
$depstr .= ', ' if $depstr;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment