diff options
| -rw-r--r-- | global.sym | 1 | ||||
| -rw-r--r-- | objXSUB.h | 4 | ||||
| -rw-r--r-- | perlapi.c | 7 |
3 files changed, 12 insertions, 0 deletions
diff --git a/global.sym b/global.sym index f54a3fca08..472fff50bb 100644 --- a/global.sym +++ b/global.sym @@ -333,6 +333,7 @@ Perl_regnext Perl_repeatcpy Perl_rninstr Perl_rsignal +Perl_rsignal_state Perl_savepv Perl_savepvn Perl_savestack_grow @@ -1331,6 +1331,10 @@ #define Perl_rsignal pPerl->Perl_rsignal #undef rsignal #define rsignal Perl_rsignal +#undef Perl_rsignal_state +#define Perl_rsignal_state pPerl->Perl_rsignal_state +#undef rsignal_state +#define rsignal_state Perl_rsignal_state #if !defined(HAS_RENAME) #endif #undef Perl_savepv @@ -2432,6 +2432,13 @@ Perl_rsignal(pTHXo_ int i, Sighandler_t t) { return ((CPerlObj*)pPerl)->Perl_rsignal(i, t); } + +#undef Perl_rsignal_state +Sighandler_t +Perl_rsignal_state(pTHXo_ int i) +{ + return ((CPerlObj*)pPerl)->Perl_rsignal_state(i); +} #if !defined(HAS_RENAME) #endif |