… | |
… | |
684 | /** coroutine stack handling ************************************************/ |
684 | /** coroutine stack handling ************************************************/ |
685 | |
685 | |
686 | static int (*orig_sigelem_get) (pTHX_ SV *sv, MAGIC *mg); |
686 | static int (*orig_sigelem_get) (pTHX_ SV *sv, MAGIC *mg); |
687 | static int (*orig_sigelem_set) (pTHX_ SV *sv, MAGIC *mg); |
687 | static int (*orig_sigelem_set) (pTHX_ SV *sv, MAGIC *mg); |
688 | |
688 | |
|
|
689 | /* apparently < 5.8.8 */ |
|
|
690 | #undef MgPV_nolen_const |
|
|
691 | #ifndef MgPV_nolen_const |
|
|
692 | #define MgPV_nolen_const(mg) (((((int)(mg)->mg_len)) == HEf_SVKEY) ? \ |
|
|
693 | SvPV_nolen_const((SV*)((mg)->mg_ptr)) : \ |
|
|
694 | (const char*)(mg)->mg_ptr) |
|
|
695 | #endif |
|
|
696 | |
689 | /* |
697 | /* |
690 | * This overrides the default magic get method of %SIG elements. |
698 | * This overrides the default magic get method of %SIG elements. |
691 | * The original one doesn't provide for reading back of PL_diehook/PL_warnhook |
699 | * The original one doesn't provide for reading back of PL_diehook/PL_warnhook |
692 | * and instead of tryign to save and restore the hash elements, we just provide |
700 | * and instead of tryign to save and restore the hash elements, we just provide |
693 | * readback here. |
701 | * readback here. |