From: Alan Burlison <Alan.Burlison@uk.sun.com>
Date: Mon, 9 Aug 2004 19:00:12 +0000 (+0100)
Subject: Re: POSIX::sigprocmask implemented incorrectly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=194cfca00c1d8aa655546dfcf66b7606fc587a4c;p=p5sagit%2Fp5-mst-13.2.git

Re: POSIX::sigprocmask implemented incorrectly
Message-ID: <4117BBAC.7080603@sun.com>

p4raw-id: //depot/perl@23211
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 25c4250..4703dcf 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -1402,7 +1402,7 @@ INIT:
 	    croak("sigset is not of type POSIX::SigSet");
 	}
 
-	if ( items < 3 || SvTYPE(ST(2)) == SVt_NULL) {
+	if (items < 3 || ! SvOK(ST(2))) {
 	    oldsigset = NULL;
 	} else if (sv_isa(ST(2), "POSIX::SigSet")) {
 	    IV tmp = SvIV((SV*)SvRV(ST(2)));