From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 16 Nov 2001 13:16:13 +0000 (+0000)
Subject: A missing return; from Charles Lane.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73e350d9d5d4fc48f0ec92bcf573a95a671ec89c;p=p5sagit%2Fp5-mst-13.2.git

A missing return; from Charles Lane.

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

diff --git a/vms/vms.c b/vms/vms.c
index 33254a8..aa5577d 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5571,7 +5571,7 @@ int my_sigdelset(sigset_t *set, int sig) {
 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));
 }
 /*}}}*/