+ "$archive $suite $section $subsection $data{'priority'} $data{'version'}\000";
+
+ while (my ($key, $value) = each (%data)) {
+ next if $key eq 'package' or $key eq 'archive' or $key eq 'suite';
+ print STDERR "WARN: $key ($suite/$archive/$data{package}/$data{architecture}\n" unless defined $value;
+ $data .= "$key\00$value\00";
+ }
+ $data =~ s/.$//so;
+ $sources_all_db{"$archive $suite $data{'package'}"}
+ = $data;
+ }
+ open NAMES, '>>', "$DBDIR/source_names_$suite.txt.new"
+ or die "Error creating source names list: $!";
+ foreach (sort keys %source_names_suite) {
+ print NAMES "$_\n";