… | |
… | |
1416 | /* try to exit the same way perl's main function would do */ |
1416 | /* try to exit the same way perl's main function would do */ |
1417 | /* we do not bother resetting the environment or other things *7 |
1417 | /* we do not bother resetting the environment or other things *7 |
1418 | /* that are not, uhm, essential */ |
1418 | /* that are not, uhm, essential */ |
1419 | /* this obviously also doesn't work when perl is embedded */ |
1419 | /* this obviously also doesn't work when perl is embedded */ |
1420 | static void ecb_noinline ecb_cold |
1420 | static void ecb_noinline ecb_cold |
1421 | perlish_exit (void) |
1421 | perlish_exit (pTHX) |
1422 | { |
1422 | { |
1423 | int exitstatus = perl_destruct (PL_curinterp); |
1423 | int exitstatus = perl_destruct (PL_curinterp); |
1424 | perl_free (PL_curinterp); |
1424 | perl_free (PL_curinterp); |
1425 | exit (exitstatus); |
1425 | exit (exitstatus); |
1426 | } |
1426 | } |
… | |
… | |
1462 | * If perl-run returns we assume exit() was being called or the coro |
1462 | * If perl-run returns we assume exit() was being called or the coro |
1463 | * fell off the end, which seems to be the only valid (non-bug) |
1463 | * fell off the end, which seems to be the only valid (non-bug) |
1464 | * reason for perl_run to return. We try to mimic whatever perl is normally |
1464 | * reason for perl_run to return. We try to mimic whatever perl is normally |
1465 | * doing in that case. YMMV. |
1465 | * doing in that case. YMMV. |
1466 | */ |
1466 | */ |
1467 | perlish_exit (); |
1467 | perlish_exit (aTHX); |
1468 | } |
1468 | } |
1469 | } |
1469 | } |
1470 | |
1470 | |
1471 | static coro_cctx * |
1471 | static coro_cctx * |
1472 | cctx_new (void) |
1472 | cctx_new (void) |