Change 23211 by [EMAIL PROTECTED] on 2004/08/10 07:00:01
Subject: Re: POSIX::sigprocmask implemented incorrectly
From: Alan Burlison <[EMAIL PROTECTED]>
Date: Mon, 09 Aug 2004 19:00:12 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/POSIX/POSIX.xs#129 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.xs#129 (text) ====
Index: perl/ext/POSIX/POSIX.xs
--- perl/ext/POSIX/POSIX.xs#128~23204~ Mon Aug 9 02:13:27 2004
+++ perl/ext/POSIX/POSIX.xs Tue Aug 10 00:00:01 2004
@@ -1402,7 +1402,7 @@
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)));
End of Patch.
