In _deep_check, always iterate on $y

[perl/modules/Test-Leaner.git] / lib / Test / Leaner.pm

diff --git a/lib/Test/Leaner.pm b/lib/Test/Leaner.pm
index 14cb2421dcfa619328be55b25334f34112c707d5..4764511b32ab294f06d7e6878c22fa07ece0022b 100644 (file)
--- 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') {