smarter C<$SIG{FOO} = BAREWORD;> warning

p4raw-id: //depot/perl@2111

1 files changed, 2 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 1827a3989e..f3e8ce8c3c 100644
--- a/toke.c
+++ b/toke.c
@@ -2728,7 +2728,8 @@ int yylex
 		    for (t++; isSPACE(*t); t++) ;
 		    if (isIDFIRST_lazy(t)) {
 			t = scan_word(t, tmpbuf, sizeof tmpbuf, TRUE, &len);
-			if (*t != '(' && perl_get_cv(tmpbuf, FALSE))
+		        for (; isSPACE(*t); t++) ;
+			if (*t == ';' && perl_get_cv(tmpbuf, FALSE))
 			    warner(WARN_SYNTAX,
 				"You need to quote \"%s\"", tmpbuf);
 		    }