X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=f3e67204b32e075f3d33981828d765115398ff7e;hb=79dec0f47660bf63141eb6171dd4c2d4053422af;hp=e9faf1b51a7aad944ff7afad51919c030450b1ac;hpb=b40906a9a3a195cf3ea96490cc4a691baeca3abe;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index e9faf1b..f3e6720 100644
--- a/mg.c
+++ b/mg.c
@@ -2713,11 +2713,13 @@ Perl_sighandler(int sig)
 		   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, "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);
 		   hv_store(sih, "addr",    4, newSVuv(PTR2UV(sip->si_addr)),   0);
-		   hv_store(sih, "status",  6, newSViv(sip->si_status), 0);
 		   hv_store(sih, "band",    4, newSViv(sip->si_band),   0);
+#endif
 		   EXTEND(SP, 2);
 		   PUSHs((SV*)rv);
 		   PUSHs(newSVpv((void*)sip, sizeof(*sip)));