Change 23204 by [EMAIL PROTECTED] on 2004/08/09 09:13:27
Subject: Re: POSIX::sigprocmask implemented incorrectly
From: Alan Burlison <[EMAIL PROTECTED]>
Date: Mon, 09 Aug 2004 10:30:25 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/POSIX/POSIX.xs#128 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.xs#128 (text) ====
Index: perl/ext/POSIX/POSIX.xs
--- perl/ext/POSIX/POSIX.xs#127~23194~ Wed Aug 4 00:18:49 2004
+++ perl/ext/POSIX/POSIX.xs Mon Aug 9 02:13:27 2004
@@ -1393,9 +1393,9 @@
POSIX::SigSet sigset = NO_INIT
POSIX::SigSet oldsigset = NO_INIT
INIT:
- if (SvTYPE(ST(1)) == SVt_NULL) {
+ if (! SvOK(ST(1))) {
sigset = NULL;
- } else if (sv_derived_from(ST(1), "POSIX::SigSet")) {
+ } else if (sv_isa(ST(1), "POSIX::SigSet")) {
IV tmp = SvIV((SV*)SvRV(ST(1)));
sigset = INT2PTR(POSIX__SigSet,tmp);
} else {
@@ -1404,7 +1404,7 @@
if ( items < 3 || SvTYPE(ST(2)) == SVt_NULL) {
oldsigset = NULL;
- } else if (sv_derived_from(ST(2), "POSIX::SigSet")) {
+ } else if (sv_isa(ST(2), "POSIX::SigSet")) {
IV tmp = SvIV((SV*)SvRV(ST(2)));
oldsigset = INT2PTR(POSIX__SigSet,tmp);
} else {
End of Patch.
