if ($ry eq 'ARRAY') {
if ($#$x == $#$y) {
- _deep_check($x->[$_], $y->[$_]) or return 0 for 0 .. $#$y;
+ # Prevent vivification of deleted elements by fetching the array values.
+ my ($ex, $ey);
+ _deep_check($ex = $x->[$_], $ey = $y->[$_]) or return 0 for 0 .. $#$x;
return 1;
}
} elsif ($ry eq 'HASH') {