diff --git a/lib/MetaCPAN/Util.pm b/lib/MetaCPAN/Util.pm index 5cc0e76b5..064be2a6e 100644 --- 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"; }