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