From e3ea916cbeb0135a58329a9040275eff01d43698 Mon Sep 17 00:00:00 2001
From: Bill Allombert <Bill.Allombert@math.u-bordeaux.fr>
Date: Sun, 15 Dec 2024 22:33:36 +0100
Subject: [PATCH] debbugs-upgradestatus: apply patch by Mark Hindley

---
 migrate/debbugs-upgradestatus | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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}) {
-- 
2.39.5