This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a89c828
)
Revert "tmp fix for Bleadperl breaks Variable-Magic"
author
David Mitchell
<davem@iabyn.com>
Thu, 8 Sep 2016 07:55:45 +0000
(08:55 +0100)
committer
David 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
patch
|
blob
|
blame
|
history
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)