… | |
… | |
1344 | |
1344 | |
1345 | if (PL_curcop != &PL_compiling) |
1345 | if (PL_curcop != &PL_compiling) |
1346 | { |
1346 | { |
1347 | SV **cb; |
1347 | SV **cb; |
1348 | |
1348 | |
1349 | if (oldcxix != cxstack_ix && cctx_current->flags & CC_TRACE_SUB) |
1349 | if (oldcxix != cxstack_ix && cctx_current->flags & CC_TRACE_SUB && cxstack_ix >= 0) |
1350 | { |
1350 | { |
1351 | PERL_CONTEXT *cx = &cxstack[cxstack_ix]; |
1351 | PERL_CONTEXT *cx = &cxstack[cxstack_ix]; |
1352 | |
1352 | |
1353 | if (CxTYPE (cx) == CXt_SUB && oldcxix < cxstack_ix) |
1353 | if (CxTYPE (cx) == CXt_SUB && oldcxix < cxstack_ix) |
1354 | { |
1354 | { |