From 59a6d928548d6aee50ca1cdd520abe66c9baa354 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 28 Oct 1998 18:52:10 +0000
Subject: smarter C<$SIG{FOO} = BAREWORD;> warning

p4raw-id: //depot/perl@2111
---
 toke.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
 		    }
-- 
cgit v1.2.1