1 files changed, 2 insertions, 2 deletions
diff --git a/doio.c b/doio.c
index 5ac31047ae..091e02b944 100644
--- a/doio.c
+++ b/doio.c
@@ -1641,10 +1641,10 @@ nothing in the core.
 	if (mark == sp)
 	    break;
 	s = SvPVx(*++mark, n_a);
-	if (isUPPER(*s)) {
+	if (isALPHA(*s)) {
 	    if (*s == 'S' && s[1] == 'I' && s[2] == 'G')
 		s += 3;
-	    if (!(val = whichsig(s)))
+	    if ((val = whichsig(s)) < 0)
 		Perl_croak(aTHX_ "Unrecognized signal name \"%s\"",s);
 	}
 	else