+# package names stuff:
+for my $pkg (keys %package_names) {
+ for (my $i=0;$i<length($pkg)-1;$i++) {
+ my $before = substr($pkg, 0, $i);
+ my $after = substr($pkg, $i);
+ $package_postfixes{$after} .= "$before\0";
+ }
+}
+my %package_postfixes_db;
+tie %package_postfixes_db, "DB_File", "package_postfixes.db.new",
+ O_RDWR|O_CREAT, 0666, $DB_BTREE
+ 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
+ if ($nr > $MAX_PACKAGE_POSTFIXES) {
+ $v = "\001" . $nr;
+ }
+ $package_postfixes_db{$k} = $v;
+}
+untie %package_postfixes_db;
+