From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 28 Oct 1998 18:52:10 +0000 (+0000)
Subject: smarter C<$SIG{FOO} = BAREWORD;> warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59a6d928548d6aee50ca1cdd520abe66c9baa354;p=p5sagit%2Fp5-mst-13.2.git

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

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

diff --git a/toke.c b/toke.c
index 1827a39..f3e8ce8 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);
 		    }