summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2007-08-29 17:04:53 -0400
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-08-30 13:49:14 +0000
commitfe5bfecd71ca735f83568f7bc2b9f22cc82e3d61 (patch)
tree1fbf396647db987f0166de4ee32bf04f3c6c5c25 /mg.c
parent0cb1540ad85637e5abb7372876a8c85c855a7427 (diff)
downloadperl-fe5bfecd71ca735f83568f7bc2b9f22cc82e3d61.tar.gz
misc blead stuff
Message-ID: <46D617B5.3000002@iki.fi> p4raw-id: //depot/perl@31765
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c9
1 files changed, 9 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 14b237e44d..89f4c32910 100644
--- a/mg.c
+++ b/mg.c
@@ -1317,6 +1317,9 @@ Perl_csighandler(int sig)
#else
dTHX;
#endif
+#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+ va_list args;
+#endif
#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
(void) rsignal(sig, PL_csighandlerp);
if (PL_sig_ignoring[sig]) return;
@@ -1329,6 +1332,9 @@ Perl_csighandler(int sig)
exit(1);
#endif
#endif
+#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+ va_start(args, sig);
+#endif
if (
#ifdef SIGILL
sig == SIGILL ||
@@ -1345,6 +1351,9 @@ Perl_csighandler(int sig)
(*PL_sighandlerp)(sig);
else
S_raise_signal(aTHX_ sig);
+#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+ va_end(args);
+#endif
}
#if defined(FAKE_PERSISTENT_SIGNAL_HANDLERS) || defined(FAKE_DEFAULT_SIGNAL_HANDLERS)