Signed-off-by: Gerfried Fuchs <rhonda@debian.org>
print "\tseems not to exist, skipping...\n";
next;
}
print "\tseems not to exist, skipping...\n";
next;
}
- open PKG, "zcat $TOPDIR/archive/$archive/$suite/$what/{,debian-installer/}binary-*/Packages.gz|";
+ open PKG, "zcat $TOPDIR/archive/$archive/$suite/$what/binary-*/Packages.gz"
+ . " $TOPDIR/archive/$archive/$suite/$what/debian-installer/binary-*/Packages.gz|";
while (<PKG>) {
next if /^\s*$/;
my $data = "";
while (<PKG>) {
next if /^\s*$/;
my $data = "";