From 40b7a5f5e789eb31046d021a15e48b502ad8e1e9 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 9 Jul 2001 01:55:23 +0000 Subject: [PATCH] save a dTHX p4raw-id: //depot/perl@11226 --- ext/POSIX/POSIX.xs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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. */ -- 2.7.4