$key =~ tr [A-Z] [a-z];
$data{$key} = $value;
}
+ # Skip broken debs
+ next unless $data{architecture};
# Skip double package
next if exists($packages_all_db{"$data{'package'} $data{'architecture'} $data{'version'}"});
# Skip arch:all for amd64 & debports, any non-redundancy is
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;
}