Some signals are more real than others
[p5sagit/p5-mst-13.2.git] / mg.c
diff --git a/mg.c b/mg.c
index e9faf1b..fe78c20 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1045,7 +1045,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
        MgTAINTEDDIR_off(mg);
 #ifdef VMS
        if (s && klen == 8 && strEQ(ptr, "DCL$PATH")) {
-           char pathbuf[256], eltbuf[256], *cp, *elt = s;
+           char pathbuf[256], eltbuf[256], *cp, *elt = (char *) s;
            Stat_t sbuf;
            int i = 0, j = 0;
 
@@ -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)));