16 lines
591 B
Diff
16 lines
591 B
Diff
|
Index: perl-5.26.1/ext/POSIX/POSIX.xs
|
||
|
|
===================================================================
|
||
|
|
--- perl-5.26.1.orig/ext/POSIX/POSIX.xs
|
||
|
|
+++ perl-5.26.1/ext/POSIX/POSIX.xs
|
||
|
|
@@ -3158,6 +3158,10 @@ sigaction(sig, optaction, oldaction = 0)
|
||
|
|
/* Set up any desired flags. */
|
||
|
|
svp = hv_fetchs(action, "FLAGS", FALSE);
|
||
|
|
act.sa_flags = svp ? SvIV(*svp) : 0;
|
||
|
|
+#ifdef SA_SIGINFO
|
||
|
|
+ /* Perl_sighandler depends on the extra arguments. */
|
||
|
|
+ act.sa_flags |= SA_SIGINFO;
|
||
|
|
+#endif
|
||
|
|
|
||
|
|
/* Don't worry about cleaning up *sigsvp if this fails,
|
||
|
|
* because that means we tried to disposition a
|