This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adapt definition of Sighandler_t to go with change #32012
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 Oct 2007 11:21:59 +0000 (11:21 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 Oct 2007 11:21:59 +0000 (11:21 +0000)
p4raw-link: @32012 on //depot/perl: b6455c53c26be8a62e12a3f2a24a3a5086dd2c7b

p4raw-id: //depot/perl@32013

iperlsys.h
mg.c

index bc99954..f3aa64d 100644 (file)
@@ -52,7 +52,7 @@
 
 #ifndef Sighandler_t
 #  if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
-typedef Signal_t (*Sighandler_t) (int, ...);
+typedef Signal_t (*Sighandler_t) (int, siginfo_t*, void*);
 #  else
 typedef Signal_t (*Sighandler_t) (int);
 #  endif
diff --git a/mg.c b/mg.c
index e97b8dd..2084cac 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1346,7 +1346,7 @@ Perl_csighandler(int sig)
           (PL_signals & PERL_SIGNALS_UNSAFE_FLAG))
        /* Call the perl level handler now--
         * with risk we may be in malloc() etc. */
-       (*PL_sighandlerp)(sig);
+       (*PL_sighandlerp)(sig, NULL, NULL);
    else
        S_raise_signal(aTHX_ sig);
 #if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
@@ -1385,7 +1385,7 @@ Perl_despatch_signals(pTHX)
            PERL_BLOCKSIG_ADD(set, sig);
            PL_psig_pend[sig] = 0;
            PERL_BLOCKSIG_BLOCK(set);
-           (*PL_sighandlerp)(sig);
+           (*PL_sighandlerp)(sig, NULL, NULL);
            PERL_BLOCKSIG_UNBLOCK(set);
        }
     }