From 4944e2f7e3104099141e13fc5a663be1edbc5ff4 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 17 Sep 1998 01:45:14 +0000
Subject: [PATCH] suppress bogus warning on C<sub x {} x()>

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

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 &");
-- 
2.7.4