diff options
| author | Paul Green <Paul.Green@stratus.com> | 2005-07-25 08:39:32 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-07-28 17:29:47 +0000 |
| commit | ea1bde1698e6ad6e5f9da28bfbefc2987ec7abcc (patch) | |
| tree | f2dd7fa005f230deda9b141791d5ceb1d7163e4e /mg.c | |
| parent | ccecb81f3fa058820141d0cb9cd4ce1f15b71a8d (diff) | |
| download | perl-ea1bde1698e6ad6e5f9da28bfbefc2987ec7abcc.tar.gz | |
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
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |