| … | |
… | |
| 1541 | /* |
1541 | /* |
| 1542 | * Unfortunately, there is no way to get at the return values of the |
1542 | * Unfortunately, there is no way to get at the return values of the |
| 1543 | * coro body here, as perl_run destroys these. Likewise, we cannot catch |
1543 | * coro body here, as perl_run destroys these. Likewise, we cannot catch |
| 1544 | * runtime errors here, as this is just a random interpreter, not a thread. |
1544 | * runtime errors here, as this is just a random interpreter, not a thread. |
| 1545 | */ |
1545 | */ |
|
|
1546 | |
|
|
1547 | /* |
|
|
1548 | * pp_entersub in 5.24 no longer ENTERs, but perl_destruct |
|
|
1549 | * requires PL_scopestack_ix, so do it here if required. |
|
|
1550 | */ |
|
|
1551 | if (!PL_scopestack_ix) |
|
|
1552 | ENTER; |
| 1546 | |
1553 | |
| 1547 | /* |
1554 | /* |
| 1548 | * If perl-run returns we assume exit() was being called or the coro |
1555 | * If perl-run returns we assume exit() was being called or the coro |
| 1549 | * fell off the end, which seems to be the only valid (non-bug) |
1556 | * fell off the end, which seems to be the only valid (non-bug) |
| 1550 | * reason for perl_run to return. We try to mimic whatever perl is normally |
1557 | * reason for perl_run to return. We try to mimic whatever perl is normally |
