| … | |
… | |
| 1275 | /* somebody or something will hit me for both perl_run and PL_restartop */ |
1275 | /* somebody or something will hit me for both perl_run and PL_restartop */ |
| 1276 | PL_restartop = PL_op; |
1276 | PL_restartop = PL_op; |
| 1277 | perl_run (PL_curinterp); |
1277 | perl_run (PL_curinterp); |
| 1278 | /* |
1278 | /* |
| 1279 | * Unfortunately, there is no way to get at the return values of the |
1279 | * Unfortunately, there is no way to get at the return values of the |
| 1280 | * coro body here, as perl_run destroys these |
1280 | * coro body here, as perl_run destroys these. Likewise, we cannot catch |
|
|
1281 | * runtime errors here, as this is just a random interpreter, not a thread. |
| 1281 | */ |
1282 | */ |
| 1282 | |
1283 | |
| 1283 | /* |
1284 | /* |
| 1284 | * If perl-run returns we assume exit() was being called or the coro |
1285 | * If perl-run returns we assume exit() was being called or the coro |
| 1285 | * fell off the end, which seems to be the only valid (non-bug) |
1286 | * fell off the end, which seems to be the only valid (non-bug) |
