This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix warnings about Sighandler_t type on Win32.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 4 Oct 2007 08:32:11 +0000 (08:32 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 4 Oct 2007 08:32:11 +0000 (08:32 +0000)
p4raw-id: //depot/perl@32020

mg.c

diff --git a/mg.c b/mg.c
index 2084cac..f6ba85d 100644 (file)
--- 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);
        }
     }