diff options
author | David Mitchell <davem@iabyn.com> | 2016-09-08 08:55:45 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-09-08 08:56:28 +0100 |
commit | 25cf9644e6dfb6b7cb9e767b3f52baa4b81a7df0 (patch) | |
tree | cb3b66ace873e5e09cf9922198fb31f1f4ccd0e9 /av.c | |
parent | a89c828494a2da529b9bf3599b649432a94db4de (diff) | |
download | perl-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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) |