From: Paul Green <Paul.Green@stratus.com>
Date: Mon, 25 Jul 2005 12:39:32 +0000 (-0400)
Subject: RE: [PATCH] Re: [PATCH] support POSIX SA_SIGINFO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea1bde1698e6ad6e5f9da28bfbefc2987ec7abcc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);