]> git.vpit.fr Git - perl/modules/Test-Leaner.git/commitdiff
In _deep_check, always iterate on $y
authorVincent Pit <vince@profvince.com>
Tue, 28 Dec 2010 21:24:56 +0000 (22:24 +0100)
committerVincent Pit <vince@profvince.com>
Tue, 28 Dec 2010 21:24:56 +0000 (22:24 +0100)
This change actually has no practical consequence.

lib/Test/Leaner.pm

index 14cb2421dcfa619328be55b25334f34112c707d5..4764511b32ab294f06d7e6878c22fa07ece0022b 100644 (file)
@@ -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') {