Change 13042 by jhi@alpha on 2001/11/16 13:16:13
A missing return; from Charles Lane.
Affected files ...
.... //depot/perl/vms/vms.c#92 edit
Differences ...
==== //depot/perl/vms/vms.c#92 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c.~1~ Fri Nov 16 06:30:05 2001
+++ perl/vms/vms.c Fri Nov 16 06:30:05 2001
@@ -5571,7 +5571,7 @@
int my_sigismember(sigset_t *set, int sig) {
if (!set) { SETERRNO(EFAULT,SS$_ACCVIO); return -1; }
if (sig > NSIG) { SETERRNO(EINVAL,LIB$_INVARG); return -1; }
- *set & (1 << (sig - 1));
+ return *set & (1 << (sig - 1));
}
/*}}}*/
End of Patch.
