From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 3 Oct 2007 11:21:59 +0000 (+0000)
Subject: Adapt definition of Sighandler_t to go with change #32012
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80626cf17d219cfbdd1f416438a98b310b6f2e0b;p=p5sagit%2Fp5-mst-13.2.git

Adapt definition of Sighandler_t to go with change #32012
p4raw-link: @32012 on //depot/perl: b6455c53c26be8a62e12a3f2a24a3a5086dd2c7b

p4raw-id: //depot/perl@32013
---

diff --git a/iperlsys.h b/iperlsys.h
index bc99954..f3aa64d 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -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
--- 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);
 	}
     }