+ # handle the source packages
+ for my $sect (@bugcfg::sections) {
+ my $fh;
+ open($fh,'-|','zcat',"$root/$sect/source/Sources.gz") or
+ die "Unable to open zcat $root/$sect/source/Sources.gz for reading: $!";
+ while (<$fh>) {
+ chomp;
+ next unless m/^Package:\s/; # We're only interested in the packagenames
+ s/^Package:\s*//; # Strip the fieldname
+ $section{$_} = "$archive/$sect";
+ }
+ }