diff options
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 3 | ||||
| -rw-r--r-- | sv.c | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 2c0ee61493..69b706613b 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -3084,7 +3084,8 @@ CODE: PERL_SET_CONTEXT(interp_dup); /* continue after 'clone_with_stack' */ - interp_dup->Iop = interp_dup->Iop->op_next; + if (interp_dup->Iop) + interp_dup->Iop = interp_dup->Iop->op_next; /* run with new perl */ Perl_runops_standard(interp_dup); @@ -12312,6 +12312,7 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, CLONE_PARAMS* param) Perl_croak(aTHX_ "Cloning substitution context is unimplemented"); } else { + ncx->blk_oldcop = (COP*)any_dup(ncx->blk_oldcop, param->proto_perl); switch (CxTYPE(ncx)) { case CXt_SUB: ncx->blk_sub.cv = (ncx->blk_sub.olddepth == 0 |