diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-07-20 17:40:54 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-07-20 12:28:16 +0000 |
| commit | 8aad04aa6a2ab20a526b53089f8919d46434ca7e (patch) | |
| tree | 36435f7f090483f1ec572dafd88f2ddd20080c37 /perl.c | |
| parent | a3526348f2163e87ba8192a892f448a36aeaa1ed (diff) | |
| download | perl-8aad04aa6a2ab20a526b53089f8919d46434ca7e.tar.gz | |
support POSIX SA_SIGINFO
Message-ID: <42DE3846.6050606@gmail.com>
p4raw-id: //depot/perl@25200
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -258,7 +258,7 @@ perl_construct(pTHXx) SvREFCNT(&PL_sv_placeholder) = (~(U32)0)/2; } - PL_sighandlerp = Perl_sighandler; + PL_sighandlerp = (Sighandler_t) Perl_sighandler; PL_pidstatus = newHV(); } @@ -2001,7 +2001,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) # define SIGCHLD SIGCLD #endif Sighandler_t sigstate = rsignal_state(SIGCHLD); - if (sigstate == SIG_IGN) { + if (sigstate == (Sighandler_t) SIG_IGN) { if (ckWARN(WARN_SIGNAL)) Perl_warner(aTHX_ packWARN(WARN_SIGNAL), "Can't ignore signal CHLD, forcing to default"); |