From: Vincent Pit Date: Tue, 28 Dec 2010 21:24:56 +0000 (+0100) Subject: In _deep_check, always iterate on $y X-Git-Tag: v0.02~8 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=191b7e27b08107853c7938609d2deebe9b10f324;p=perl%2Fmodules%2FTest-Leaner.git In _deep_check, always iterate on $y This change actually has no practical consequence. --- diff --git a/lib/Test/Leaner.pm b/lib/Test/Leaner.pm index 14cb242..4764511 100644 --- a/lib/Test/Leaner.pm +++ b/lib/Test/Leaner.pm @@ -503,7 +503,7 @@ sub _deep_check { if ($#$x == $#$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; + _deep_check($ex = $x->[$_], $ey = $y->[$_]) or return 0 for 0 .. $#$y; return 1; } } elsif ($ry eq 'HASH') {