- my %archives = map { $_ => 1 } qw( us security );
- foreach (sort keys %changes) {
- my $entry = [];
- if ($changes{$_} == 1) {
- $entry = read_entry_simple( \%packages, $_, \%archives, $suite);
- die "Fatal Error: Can't find entry for package $_\n"
- unless @$entry;
- shift @$entry; # remove virtual pkg info
- }
- print CHANGES join(" ", $_, $age, @$entry)."\n";
- print "Wrote entry: ".join(" ", $_, $age, @$entry)."\n";
+}
+my %archives = map { $_ => 1 } qw( us security );
+foreach (sort (keys %add, keys %del)) {
+ my $entry = [];
+ my $age = 0;
+ if (exists $add{$_}) {
+ $entry = read_entry_simple( \%packages, $_, \%archives, $suite);
+ die "Fatal Error: Can't find entry for package $_\n"
+ unless @$entry;
+ shift @$entry; # remove virtual pkg info
+ $age = $add{$_};
+ } else {
+ $age = $del{$_};