- (my $viscomponent = $component) =~ s[/.*][];
-
- my $sources = (grep { -f $_ } glob "$suitedir/$component/source/Sources.*")[0];
- next unless defined $sources;
- read_packages($db,$db2,$sources, $viscomponent,'source',$suite);
-
+ my $viscomponent = $component;
+ $viscomponent =~ s[/.*][];
+
+ 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);
+ }