-# state $common_dists = [@{$config{distributions}}];
-# sub _get_packages {
-# my %args = @_;
-# my $s = $args{schema};
-# my %src_packages;
-# my %src_ver_packages;
-# my %bin_packages;
-# my %bin_ver_packages;
-# # split packages into src/ver, bin/ver, src, and bin so we can select them
-# # from the database
-# local $_;
-# for my $pkg (@{$args{packages}}) {
-# if (ref($pkg)) {
-# if ($pkg->[0] =~ /^src:(.+)$/) {
-# for my $ver (@{$pkg}[1..$#{$pkg}]) {
-# $src_ver_packages{$1}{$ver} = 1;
-# }
-# } else {
-# for my $ver (@{$pkg}[1..$#{$pkg}]) {
-# $bin_ver_packages{$pkg->[0]}{$ver} = 1;
-# }
-# }
-# } elsif ($pkg =~ /^src:(.+)$/) {
-# $src_packages{$1} = 1;
-# } else {
-# $bin_packages{$pkg} = 1;
-# }
-# }
-# my @src_ver_search;
-# for my $sp (keys %src_ver_packages) {
-# push @src_ver_search,
-# (-and => {'src_pkg.pkg' => $sp,
-# 'me.ver' => [keys %{$src_ver_packages{$sp}}],
-# },
-# );
-# }
-# my %packages;
-# my $src_rs = $s->resultset('SrcVer')->
-# search({-or => [-and => {'src_pkg.pkg' => [keys %src_packages],
-# -or => {'suite.codename' => $common_dists,
-# 'suite.suite_name' => $common_dists,
-# },
-# },
-# @src_ver_search,
-# ],
-# },
-# {join => ['src_pkg',
-# {'src_associations' => 'suite'},
-# ],
-# '+select' => [qw(src_pkg.pkg),
-# qw(suite.codename),
-# qw(src_associations.modified),
-# q(CONCAT(src_pkg.pkg,'/',me.ver))],
-# '+as' => [qw(src_pkg_name codename modified_time src_pkg_ver)],
-# result_class => 'DBIx::Class::ResultClass::HashRefInflator',
-# order_by => {-desc => 'me.ver'}
-# },
-# );
-# while (my $pkg = $src_rs->next) {
-# my $n = 'src:'.$pkg->{src_pkg_name};
-# if (exists $packages{$n}) {
-# push @{$packages{$n}{versions}},
-# $pkg->{src_pkg_ver};
-# if (defined $pkg->{codename}) {
-# push @{$packages{$n}{dists}{$pkg->{codename}}},
-# $#{$packages{$n}{versions}};
-# }
-# } else {
-# $packages{$n} =
-# {name => $pkg->{src_pkg_name},
-# type => 'source',
-# valid => 1,
-# versions => [$pkg->{src_pkg_ver}],
-# dists => {defined $pkg->{codename}?($pkg->{codename} => [1]):()},
-# };
-# }
-# }
-# return \%packages;
-# }