+ while (my ($key, $value) = each (%data)) {
+ next if $key eq 'package' or $key eq 'version' or $key eq 'architecture'
+ or $key eq 'maintainer';
+ $data .= "$key: $value\n";
+ }
+ $packages_all_db{"$data{'package'} $data{'architecture'} $data{'version'}"}
+ = $data;