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 (file)
--- 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)));