fix diff_struct to cope with booleans

haarg · haarg · commit 126136984a66 · 2024-10-01T17:56:30.000+02:00
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";
         }

Original file line number	Diff line number	Diff line change
`@@ -214,6 +214,10 @@ sub diff_struct {`
`214`	`214`	`push @queue, map [ $old->{$_}, $new->{$_}, "$path/$_" ],`
`215`	`215`	`keys %$new;`
`216`	`216`	`}`
	`217`	`+ elsif ( is_bool($new) ) {`
	`218`	`+ return [ $path, $old, $new ]`
	`219`	`+ if !is_bool($old) \|\| $old != $new;`
	`220`	`+ }`
`217`	`221`	`else {`
`218`	`222`	`die "can't compare $new type data at $path";`
`219`	`223`	`}`