'non-free', 'non-free/debian-installer',
) {
my $componentdir = "$suitedir/$component";
'non-free', 'non-free/debian-installer',
) {
my $componentdir = "$suitedir/$component";
my $COMPONENT;
opendir $COMPONENT, $componentdir or die "opendir $componentdir: $!";
# debian-installer is really a section rather than a component
# (ugh).
my $COMPONENT;
opendir $COMPONENT, $componentdir or die "opendir $componentdir: $!";
# debian-installer is really a section rather than a component
# (ugh).
- my $sources = (grep { -f $_ } glob "$suitedir/$component/source/Sources.*")[0];
- next unless defined $sources;
+ my $sources = (grep { -f $_ } glob "$componentdir/source/Sources.*")[0];
+ if (not defined $sources) {
+ print STDERR "No sources matching $componentdir/source/Sources.*\n" if $DEBUG;
+ next;
+ }
read_packages($db,$db2,$sources, $viscomponent,'source',$suite);
for my $arch (readdir $COMPONENT) {
read_packages($db,$db2,$sources, $viscomponent,'source',$suite);
for my $arch (readdir $COMPONENT) {
my $archdir = "$componentdir/binary-$arch";
my $packages = (grep { -f $_ } glob("$archdir/Packages.*"))[0];
my $archdir = "$componentdir/binary-$arch";
my $packages = (grep { -f $_ } glob("$archdir/Packages.*"))[0];
read_packages($db,$db2,$packages, $viscomponent,$arch,$suite);
}
read_packages($db,$db2,$packages, $viscomponent,$arch,$suite);
}