diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-09 01:55:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-09 01:55:23 +0000 |
| commit | 40b7a5f5e789eb31046d021a15e48b502ad8e1e9 (patch) | |
| tree | 37b58a0ceff01eec864aa9af2496928e792bcc95 /ext/POSIX | |
| parent | 21b6d9dbe344a3b0174bc0693f952bcb53548649 (diff) | |
| download | perl-40b7a5f5e789eb31046d021a15e48b502ad8e1e9.tar.gz | |
save a dTHX
p4raw-id: //depot/perl@11226
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index dea204202a..ccb1486398 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -522,14 +522,13 @@ __END__ } static void -restore_sigmask(SV *osset_sv) +restore_sigmask(pTHX_ SV *osset_sv) { /* Fortunately, restoring the signal mask can't fail, because * there's nothing we can do about it if it does -- we're not * supposed to return -1 from sigaction unless the disposition * was unaffected. */ - dTHX; sigset_t *ossetp = (sigset_t *) SvPV_nolen( osset_sv ); (void)sigprocmask(SIG_SETMASK, ossetp, (sigset_t *)0); } @@ -1220,7 +1219,7 @@ sigaction(sig, optaction, oldaction = 0) /* Restore signal mask no matter how we exit this block. */ osset_sv = newSVpv((char *)(&osset), sizeof(sigset_t)); SAVEFREESV( osset_sv ); - SAVEDESTRUCTOR(restore_sigmask, osset_sv); + SAVEDESTRUCTOR_X(restore_sigmask, osset_sv); RETVAL=-1; /* In case both oldaction and action are 0. */ |