RE: [PATCH] Re: [PATCH] support POSIX SA_SIGINFO

From: "Green, Paul" <Paul.Green@stratus.com>
Message-ID: <F5F42E77A43DD944B6D664B00A5401CB8A9F67@EXNA.corp.stratus.com>

p4raw-id: //depot/perl@25240

diff --git a/mg.c b/mg.c
index 65d565d..e3d66be 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2712,8 +2712,8 @@ Perl_sighandler(int sig)
                    * addr, status, and band are defined by POSIX/SUSv3. */
                   hv_store(sih, "signo",   5, newSViv(sip->si_signo),  0);
                   hv_store(sih, "code",    4, newSViv(sip->si_code),   0);
-                  hv_store(sih, "errno",   5, newSViv(sip->si_errno),  0);
 #if 0 /* XXX TODO: Configure scan for the existence of these, but even that does not help if the SA_SIGINFO is not implemented according to the spec. */
+                  hv_store(sih, "errno",   5, newSViv(sip->si_errno),  0);
                   hv_store(sih, "status",  6, newSViv(sip->si_status), 0);
                   hv_store(sih, "uid",     3, newSViv(sip->si_uid),    0);
                   hv_store(sih, "pid",     3, newSViv(sip->si_pid),    0);