This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "tmp fix for Bleadperl breaks Variable-Magic"
authorDavid Mitchell <davem@iabyn.com>
Thu, 8 Sep 2016 07:55:45 +0000 (08:55 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 8 Sep 2016 07:56:28 +0000 (08:56 +0100)
This reverts commit 8d168aaa014262c7f93944b76b84de99af3c5513.

Variable-Magic 0.60 has been released, so this temp workaround is
no longer required.

av.c

diff --git a/av.c b/av.c
index e3c6d5a..21828a9 100644 (file)
--- a/av.c
+++ b/av.c
@@ -272,8 +272,7 @@ Perl_av_fetch(pTHX_ AV *av, SSize_t key, I32 lval)
     }
 
     neg  = (key < 0);
-    /* XXX tmp restore old behaviour to make Variable::Magic pass */
-    size = (neg ? AvFILL(av): AvFILLp(av)) + 1;
+    size = AvFILLp(av) + 1;
     key += neg * size; /* handle negative index without using branch */
 
     /* the cast from SSize_t to Size_t allows both (key < 0) and (key >= size)