From: Gurusamy Sarathy Date: Mon, 9 Jul 2001 01:55:23 +0000 (+0000) Subject: save a dTHX X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40b7a5f5e789eb31046d021a15e48b502ad8e1e9;p=p5sagit%2Fp5-mst-13.2.git save a dTHX p4raw-id: //depot/perl@11226 --- diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index dea2042..ccb1486 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. */