From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 17 Sep 1998 01:45:14 +0000 (+0000)
Subject: suppress bogus warning on C<sub x {} x()>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4944e2f7e3104099141e13fc5a663be1edbc5ff4;p=p5sagit%2Fp5-mst-13.2.git

suppress bogus warning on C<sub x {} x()>

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

diff --git a/toke.c b/toke.c
index d22a709..62d54c6 100644
--- a/toke.c
+++ b/toke.c
@@ -2979,7 +2979,8 @@ yylex(void)
 		tmp = -tmp;
 		gv = Nullgv;
 		gvp = 0;
-		if (ckWARN(WARN_AMBIGUOUS) && hgv)
+		if (ckWARN(WARN_AMBIGUOUS) && hgv
+		    && tmp != KEY_x && tmp != KEY_CORE)	/* never ambiguous */
 		    warner(WARN_AMBIGUOUS,
 		    	"Ambiguous call resolved as CORE::%s(), %s",
 			 GvENAME(hgv), "qualify as such or use &");