Fix warnings about Sighandler_t type on Win32.

p4raw-id: //depot/perl@32020

1 files changed, 8 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index 2084cacf1c..f6ba85dfce 100644
--- a/mg.c
+++ b/mg.c
@@ -1346,7 +1346,11 @@ Perl_csighandler(int sig)
 	   (PL_signals & PERL_SIGNALS_UNSAFE_FLAG))
 	/* Call the perl level handler now--
 	 * with risk we may be in malloc() etc. */
+#ifdef WIN32
+	(*PL_sighandlerp)(sig);
+#else
 	(*PL_sighandlerp)(sig, NULL, NULL);
+#endif
    else
 	S_raise_signal(aTHX_ sig);
 #if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
@@ -1385,7 +1389,11 @@ Perl_despatch_signals(pTHX)
 	    PERL_BLOCKSIG_ADD(set, sig);
  	    PL_psig_pend[sig] = 0;
 	    PERL_BLOCKSIG_BLOCK(set);
+#ifdef WIN32
+	    (*PL_sighandlerp)(sig);
+#else
 	    (*PL_sighandlerp)(sig, NULL, NULL);
+#endif
 	    PERL_BLOCKSIG_UNBLOCK(set);
 	}
     }