- This fixes issues where -udeb packages were not thought to be in a
distribution, causing issues with #885556
my $sources = (grep { -f $_ } glob "$componentdir/source/Sources.*")[0];
if (not defined $sources) {
print STDERR "No sources matching $componentdir/source/Sources.*\n" if $DEBUG;
my $sources = (grep { -f $_ } glob "$componentdir/source/Sources.*")[0];
if (not defined $sources) {
print STDERR "No sources matching $componentdir/source/Sources.*\n" if $DEBUG;
+ } else {
+ read_packages($db,$db2,$sources, $viscomponent,'source',$suite);
- read_packages($db,$db2,$sources, $viscomponent,'source',$suite);
-
for my $arch (readdir $COMPONENT) {
next unless $arch =~ s/^binary-//;
my $archdir = "$componentdir/binary-$arch";
for my $arch (readdir $COMPONENT) {
next unless $arch =~ s/^binary-//;
my $archdir = "$componentdir/binary-$arch";