+ "$archive $suite $data{'package'} $data{'version'} $data{'architecture'}\000";
+ $data{archive} = $archive;
+ while (my ($key, $value) = each (%data)) {
+ next if $key eq 'package' or $key eq 'version' or $key eq 'architecture'
+ or $key eq 'maintainer';
+ print STDERR "WARN: $key ($suite/$archive/$data{package}/$data{architecture}\n" unless defined $value;
+ $data .= "$key\00$value\00";
+ }
+ $data =~ s/.$//s;
+ $packages_all_db{"$data{'package'} $data{'architecture'} $data{'version'}"}
+ = $data;
+ }
+
+ foreach (keys %virtual_packages) {
+ my @provided_by = keys %{$virtual_packages{$_}};
+ $packages_small{$_} .= "$archive $suite virtual v v v v @provided_by\000";