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 6f556e672f7e9b1cc59f85a151161476637976fc..8decac97bd98ec0cd4fa12c0e4011f6772154ed0 100644 (file)
--- 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';