From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 14 Mar 2003 12:48:09 +0000 (+0000)
Subject: whichsig() really does return -1 for unknown signals.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f1236c00d2708a214ae3f72897a3a14ec6d9792;p=p5sagit%2Fp5-mst-13.2.git

whichsig() really does return -1 for unknown signals.

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

diff --git a/mg.c b/mg.c
index 0c37807..63b9cfc 100644
--- a/mg.c
+++ b/mg.c
@@ -2450,7 +2450,7 @@ Perl_whichsig(pTHX_ char *sig)
     if (strEQ(sig,"CLD"))
 	return SIGCHLD;
 #endif
-    return 0;
+    return -1;
 }
 
 #if !defined(PERL_IMPLICIT_CONTEXT)