Skip len magic test on negative indices on recent perls

[perl/modules/Variable-Magic.git] / t / 22-len.t

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';