This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix definition of Perl_sighandler following change 25200
[perl5.git] / mg.c
diff --git a/mg.c b/mg.c
index f4f8f60..e9faf1b 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2621,7 +2621,11 @@ Perl_whichsig(pTHX_ const char *sig)
 }
 
 Signal_t
+#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
 Perl_sighandler(int sig, ...)
+#else
+Perl_sighandler(int sig)
+#endif
 {
 #ifdef PERL_GET_SIG_CONTEXT
     dTHXa(PERL_GET_SIG_CONTEXT);