… | |
… | |
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 | static int (*orig_sigelem_clr) (pTHX_ SV *sv, MAGIC *mg); |
688 | static int (*orig_sigelem_clr) (pTHX_ SV *sv, MAGIC *mg); |
689 | |
689 | |
690 | /* apparently < 5.8.8 */ |
690 | /* apparently < 5.8.8 */ |
691 | #undef MgPV_nolen_const |
|
|
692 | #ifndef MgPV_nolen_const |
691 | #ifndef MgPV_nolen_const |
693 | #define MgPV_nolen_const(mg) (((((int)(mg)->mg_len)) == HEf_SVKEY) ? \ |
692 | #define MgPV_nolen_const(mg) (((((int)(mg)->mg_len)) == HEf_SVKEY) ? \ |
694 | SvPV_nolen_const((SV*)((mg)->mg_ptr)) : \ |
693 | SvPV_nolen((SV*)((mg)->mg_ptr)) : \ |
695 | (const char*)(mg)->mg_ptr) |
694 | (const char*)(mg)->mg_ptr) |
696 | #endif |
695 | #endif |
697 | |
696 | |
698 | /* |
697 | /* |
699 | * This overrides the default magic get method of %SIG elements. |
698 | * This overrides the default magic get method of %SIG elements. |