for my $archive (@ARCHIVES) {
for my $suite (@SUITES) {
print "Reading $archive/$suite...\n";
for my $archive (@ARCHIVES) {
for my $suite (@SUITES) {
print "Reading $archive/$suite...\n";
my %sources_all_db;
tie %sources_all_db, "DB_File", "$DBDIR/sources_all_$suite.db.new",
O_RDWR|O_CREAT, 0666, $DB_BTREE
or die "Error creating DB: $!";
my %sources_all_db;
tie %sources_all_db, "DB_File", "$DBDIR/sources_all_$suite.db.new",
O_RDWR|O_CREAT, 0666, $DB_BTREE
or die "Error creating DB: $!";
for my $suite (@SUITES) {
rename("$DBDIR/sources_all_$suite.db.new", "$DBDIR/sources_all_$suite.db");
for my $suite (@SUITES) {
rename("$DBDIR/sources_all_$suite.db.new", "$DBDIR/sources_all_$suite.db");
}
rename("$DBDIR/sources_small.db.new", "$DBDIR/sources_small.db");
rename("$DBDIR/source_postfixes.db.new", "$DBDIR/source_postfixes.db");
}
rename("$DBDIR/sources_small.db.new", "$DBDIR/sources_small.db");
rename("$DBDIR/source_postfixes.db.new", "$DBDIR/source_postfixes.db");