fix diff_struct to cope with booleans

metacpan · Oct 1, 2024 · 1261369 · 1261369
1 parent ddcf633
commit 1261369
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Util.pm b/lib/MetaCPAN/Util.pm
@@ -214,6 +214,10 @@ sub diff_struct {
             push @queue, map [ $old->{$_}, $new->{$_}, "$path/$_" ],
                 keys %$new;
         }
+        elsif ( is_bool($new) ) {
+            return [ $path, $old, $new ]
+                if !is_bool($old) || $old != $new;
+        }
         else {
             die "can't compare $new type data at $path";
         }