Change 11214 by jhi@alpha on 2001/07/08 14:32:28
A missing dTHX noticed by Gerrit P. Haase.
Affected files ...
... //depot/perl/ext/POSIX/POSIX.xs#95 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.xs#95 (text) ====
Index: perl/ext/POSIX/POSIX.xs
--- perl/ext/POSIX/POSIX.xs.~1~ Sun Jul 8 08:45:05 2001
+++ perl/ext/POSIX/POSIX.xs Sun Jul 8 08:45:05 2001
@@ -524,13 +524,14 @@
static void
restore_sigmask(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.
- */
- sigset_t *ossetp = (sigset_t *) SvPV_nolen( osset_sv );
- (void)sigprocmask(SIG_SETMASK, ossetp, (sigset_t *)0);
+ /* 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);
}
MODULE = SigSet PACKAGE = POSIX::SigSet PREFIX = sig
End of Patch.
