From: Bill Allombert <Bill.Allombert@math.u-bordeaux.fr>
Date: Sun, 15 Dec 2024 21:33:36 +0000 (+0100)
Subject: debbugs-upgradestatus: apply patch by Mark Hindley
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e3ea916cbeb0135a58329a9040275eff01d43698;p=debbugs.git

debbugs-upgradestatus: apply patch by Mark Hindley
---

diff --git a/migrate/debbugs-upgradestatus b/migrate/debbugs-upgradestatus
index b5a3189b..c7b12b03 100755
--- 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}) {