debbugs-upgradestatus: apply patch by Mark Hindley

diff --git a/migrate/debbugs-upgradestatus b/migrate/debbugs-upgradestatus
index b5a3189bbb3761ed6ea9f6c7ae012f8f2e0448ea..c7b12b03e5e65413ebbba68cd9965482cccc9035 100755 (executable)
--- a/migrate/debbugs-upgradestatus
+++ b/migrate/debbugs-upgradestatus
@@ -89,12 +89,12 @@ for my $ref (@files) {
 
         # Test new .summary file
         my $newdata = readbug($ref, $archive);
-        my %jointkeys = map { $_ => 1 } (keys %$data), (keys %$newdata);
+        my %jointkeys = map { $_ => 1 } grep { $data->{$_} } keys %$data, grep { $newdata->{$_} } keys %$newdata;
         for my $key (keys %jointkeys) {
-            unless (exists $data->{$key}) {
+            unless (defined $data->{$key}) {
                 die "BUG: $ref: key '$key' in .summary but not .status!\n";
             }
-            unless (exists $newdata->{$key}) {
+            unless (defined $newdata->{$key}) {
                 die "BUG: $ref: key '$key' in .status but not .summary!\n";
             }
             if ($data->{$key} ne $newdata->{$key}) {