From: Vincent Pit <perl@profvince.com>
Date: Tue, 6 Sep 2016 21:33:16 +0000 (-0300)
Subject: Skip len magic test on negative indices on recent perls
X-Git-Tag: rt117081^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=6dda2004e92c396ae6989e032a5ecab766ae0cd4;p=perl%2Fmodules%2FVariable-Magic.git

Skip len magic test on negative indices on recent perls

Starting from perl 5.25.4, this does not cause len magic to be triggered
anymore. It has been temporarily reverted from the core, but is likely to
come back, so this should appease the smokes.

This fixes [RT #128989].
---

diff --git a/t/22-len.t b/t/22-len.t
index 6f556e6..8decac9 100644
--- a/t/22-len.t
+++ b/t/22-len.t
@@ -166,7 +166,10 @@ SKIP: {
  }
 }
 
-{
+SKIP: {
+ skip 'len magic is no longer called for negative array indices' => 5
+                                                           if "$]" >= 5.025_004;
+
  my @val = (4 .. 6);
 
  my $wv = init_value @val, 'len', 'len';