diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-09-15 15:56:34 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-09-16 08:22:51 -0700 |
| commit | 650b15348faa8fd7a1ec5848500a25bc9174ef9c (patch) | |
| tree | 184e9cc306bdbab529b77d7fea358a7187a7371d /ext | |
| parent | 820689a12dd90c001eff6a71b9f8205a82275707 (diff) | |
| download | perl-650b15348faa8fd7a1ec5848500a25bc9174ef9c.tar.gz | |
Make B::OP::slabbed, folded, etc. actually work
B::OP::slabbed = 47
B::OP::savefree = 48
B::OP::static = 49
B::OP::folded = 50
Added by 3164fde474, these have never worked, because the alias index
check in B::OP::next was never updated.
Instead of hard-coding the number, use C_ARRAY_LENGTH(...).
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index ef34551cdd..7866aec94d 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1011,7 +1011,7 @@ next(o) PREINIT: SV *ret; PPCODE: - if (ix < 0 || ix > 46) + if (ix < 0 || ix >= C_ARRAY_LENGTH(op_methods)) croak("Illegal alias %d for B::*OP::next", (int)ix); ret = get_overlay_object(aTHX_ o, op_methods[ix].name, op_methods[ix].namelen); |