From: Vincent Pit <vince@profvince.com>
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/?p=perl%2Fmodules%2FTest-Leaner.git;a=commitdiff_plain;h=191b7e27b08107853c7938609d2deebe9b10f324

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') {