diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-09-26 13:12:57 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-26 13:13:54 -0700 |
commit | d699ecb701ac42e5f50b4ec00c162c4dc9532b91 (patch) | |
tree | c3dd99b645b5c7aa5c5de7815437a607c0aaf48b /XSUB.h | |
parent | 02c01adb33bc4dde0147539d95b275937329f6c4 (diff) | |
download | perl-d699ecb701ac42e5f50b4ec00c162c4dc9532b91.tar.gz |
Restore special blocks to working order
I accidentally broke these in commit 85ffec3682, yet everything passed
for me under threads+mad.
PL_compcv is usually restored to its previous value at the end of
newATTRSUB when LEAVE_SCOPE is called. But BEGIN blocks are called
before that. I needed PL_compcv to be restored to its previ-
ous value before it was called, so I added LEAVE_SCOPE before
process_special_blocks.
But that caused the name to be freed before S_process_special_blocks
got a chance to look at it.
So I have now added a new parameter to S_process_special_blocks to
allow *it* to call LEAVE_SCOPE after it determines that it is a BEGIN
block, but before it calls it.
Diffstat (limited to 'XSUB.h')
0 files changed, 0 insertions, 0 deletions