From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 6 Sep 1998 15:35:11 +0000 (-0400)
Subject: suppress bogus warning on C<sub x {} x()>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b3aa6704ea54bd8f849cf38267c1f3268e19758;p=p5sagit%2Fp5-mst-13.2.git

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

       Message-Id: <199809061935.PAA21531@aatma.engin.umich.edu>

p4raw-id: //depot/maint-5.005/perl@1790
---

diff --git a/toke.c b/toke.c
index c069978..00aa0c2 100644
--- a/toke.c
+++ b/toke.c
@@ -2868,7 +2868,8 @@ yylex(void)
 		tmp = -tmp;
 		gv = Nullgv;
 		gvp = 0;
-		if (PL_dowarn && hgv)
+		if (PL_dowarn && hgv
+		    && tmp != KEY_x && tmp != KEY_CORE) /* never ambiguous */
 		    warn("Ambiguous call resolved as CORE::%s(), %s",
 			 GvENAME(hgv), "qualify as such or use &");
 	    }