summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2019-11-11 15:49:58 +0000
committerDavid Mitchell <davem@iabyn.com>2019-11-18 09:34:40 +0000
commitdc37125bb824744e1f528311ca37da59913cda7d (patch)
tree806df16eed1b338b85f3d9e0df59090b3e54576d /perl.c
parentddb513d51f5efcde057dad7932a56643647947e1 (diff)
downloadperl-dc37125bb824744e1f528311ca37da59913cda7d.tar.gz
add explicit 1-arg and 3-arg sig handler functions
Currently, whether the OS-level signal handler function is declared as 1-arg or 3-arg depends on the configuration. Add explicit versions of these functions, principally so that POSIX.xs can call which version of the handler it wants regardless of configuration: see next commit.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 43f6f9b00a..e6fe14f967 100644
--- a/perl.c
+++ b/perl.c
@@ -262,7 +262,10 @@ perl_construct(pTHXx)
SvREADONLY_on(&PL_sv_placeholder);
SvREFCNT(&PL_sv_placeholder) = SvREFCNT_IMMORTAL;
- PL_sighandlerp = (Sighandler_t) Perl_sighandler;
+ PL_sighandlerp = Perl_sighandler;
+ PL_sighandler1p = Perl_sighandler1;
+ PL_sighandler3p = Perl_sighandler3;
+
#ifdef PERL_USES_PL_PIDSTATUS
PL_pidstatus = newHV();
#endif