}
# Skip double package
next if exists($packages_all_db{"$data{'package'} $data{'architecture'} $data{'version'}"});
- # Skip arch:all for amd64 & gnuab, any non-redundancy is
+ # Skip arch:all for amd64 & debports, any non-redundancy is
# usually a bug anyway
- next if ($archive eq 'amd64' or $archive eq 'gnuab')
+ next if ($archive eq 'amd64' or $archive eq 'debports')
and $data{architecture} eq 'all';
if ($data{'provides'}) {
or die "Error creating DB: $!";
while (my ($k, $v) = each(%package_postfixes)) {
$v =~ s/.$//s;
- my $nr = $v;
- $nr =~ s/[^\000]//g;
- $nr = length($nr) + 1; # < number of hits
+ my $nr = ($v =~ tr/\000/\000/) + 1;
if ($nr > $MAX_PACKAGE_POSTFIXES) {
- $v = "\001" . $nr;
+ $v = ($v =~ /\^/) ? "^\001" . $nr
+ : "\001" . $nr;
}
$package_postfixes_db{$k} = $v;
}