+ untie %contents_packages_reverse_db;
+
+ my %packages_contents_db;
+ tie %packages_contents_db, "DB_File", "$DBDIR/packages_contents_${suite}_${arch}.db.new",
+ O_RDWR|O_CREAT, 0666, $DB_BTREE
+ or die "Error creating DB: $!";
+ while (my ($k, $v) = each(%packages_contents)) {
+ $packages_contents_db{$k} = (pack "L", $packages_contents_nr{$k})
+ . $v;
+ }
+ untie %packages_contents_db;
+}}}