Merge pull request #1281 from metacpan/haarg/fix-diff-struct

haarg · web-flow · commit 466f634452cc · 2024-10-01T18:13:49.000+02:00
fix diff_struct to cope with booleans
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`	`}`