summaryrefslogtreecommitdiff
path: root/av.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-09-08 08:55:45 +0100
committerDavid Mitchell <davem@iabyn.com>2016-09-08 08:56:28 +0100
commit25cf9644e6dfb6b7cb9e767b3f52baa4b81a7df0 (patch)
treecb3b66ace873e5e09cf9922198fb31f1f4ccd0e9 /av.c
parenta89c828494a2da529b9bf3599b649432a94db4de (diff)
downloadperl-25cf9644e6dfb6b7cb9e767b3f52baa4b81a7df0.tar.gz
Revert "tmp fix for Bleadperl breaks Variable-Magic"
This reverts commit 8d168aaa014262c7f93944b76b84de99af3c5513. Variable-Magic 0.60 has been released, so this temp workaround is no longer required.
Diffstat (limited to 'av.c')
-rw-r--r--av.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/av.c b/av.c
index e3c6d5a37c..21828a9254 100644
--- 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)