… | |
… | |
140 | |
140 | |
141 | static GV *irsgv; /* $/ */ |
141 | static GV *irsgv; /* $/ */ |
142 | static GV *stdoutgv; /* *STDOUT */ |
142 | static GV *stdoutgv; /* *STDOUT */ |
143 | static SV *rv_diehook; |
143 | static SV *rv_diehook; |
144 | static SV *rv_warnhook; |
144 | static SV *rv_warnhook; |
145 | static HV *hv_sig; /* %SIG */ |
|
|
146 | |
145 | |
147 | /* async_pool helper stuff */ |
146 | /* async_pool helper stuff */ |
148 | static SV *sv_pool_rss; |
147 | static SV *sv_pool_rss; |
149 | static SV *sv_pool_size; |
148 | static SV *sv_pool_size; |
150 | static SV *sv_async_pool_idle; /* description string */ |
149 | static SV *sv_async_pool_idle; /* description string */ |
… | |
… | |
3604 | |
3603 | |
3605 | orig_sigelem_get = PL_vtbl_sigelem.svt_get; PL_vtbl_sigelem.svt_get = coro_sigelem_get; |
3604 | orig_sigelem_get = PL_vtbl_sigelem.svt_get; PL_vtbl_sigelem.svt_get = coro_sigelem_get; |
3606 | orig_sigelem_set = PL_vtbl_sigelem.svt_set; PL_vtbl_sigelem.svt_set = coro_sigelem_set; |
3605 | orig_sigelem_set = PL_vtbl_sigelem.svt_set; PL_vtbl_sigelem.svt_set = coro_sigelem_set; |
3607 | orig_sigelem_clr = PL_vtbl_sigelem.svt_clear; PL_vtbl_sigelem.svt_clear = coro_sigelem_clr; |
3606 | orig_sigelem_clr = PL_vtbl_sigelem.svt_clear; PL_vtbl_sigelem.svt_clear = coro_sigelem_clr; |
3608 | |
3607 | |
3609 | hv_sig = coro_get_hv (aTHX_ "SIG", TRUE); |
|
|
3610 | rv_diehook = newRV_inc ((SV *)gv_fetchpv ("Coro::State::diehook" , 0, SVt_PVCV)); |
3608 | rv_diehook = newRV_inc ((SV *)gv_fetchpv ("Coro::State::diehook" , 0, SVt_PVCV)); |
3611 | rv_warnhook = newRV_inc ((SV *)gv_fetchpv ("Coro::State::warnhook", 0, SVt_PVCV)); |
3609 | rv_warnhook = newRV_inc ((SV *)gv_fetchpv ("Coro::State::warnhook", 0, SVt_PVCV)); |
3612 | |
3610 | |
3613 | coro_state_stash = gv_stashpv ("Coro::State", TRUE); |
3611 | coro_state_stash = gv_stashpv ("Coro::State", TRUE); |
3614 | |
3612 | |