diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-18 21:33:10 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:18:36 +0000 |
| commit | 9d9ff9a6d62c569a740c816d77c779f220205cb7 (patch) | |
| tree | a67ea6993ed4915daed4626cefb88ee147653f4f /ext/XS-APItest/APItest.xs | |
| parent | c1f3aa6bb1ad83db702e4ef9d3640da20c85628b (diff) | |
| download | perl-9d9ff9a6d62c569a740c816d77c779f220205cb7.tar.gz | |
APItest.xs: fixup clone_with_stack()
Make the unwinding and freeing of the old interpreter up to date
with the latest handling of PL_scopestack.
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 16a7753036..8c44736e8c 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -3725,10 +3725,12 @@ CODE: PERL_SET_CONTEXT(interp); POPSTACK_TO(PL_mainstack); - assert(cxstack_ix >= 0); - dounwind(-1); - POPBLOCK(cxstack); + if (cxstack_ix >= 0) { + dounwind(-1); + POPBLOCK(cxstack); + } LEAVE_SCOPE(0); + PL_scopestack_ix = oldscope; FREETMPS; perl_destruct(interp); |