From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 12 May 2002 23:09:46 +0000 (+0200)
Subject: Re: use of lc module names and warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=238ae7127bc19e64a92badbfc0a4b72cf6ded32b;p=p5sagit%2Fp5-mst-13.2.git

Re: use of lc module names and warnings
Message-ID: <20020512230946.E699@rafael>

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

diff --git a/toke.c b/toke.c
index 7265fb0..7e9efdc 100644
--- a/toke.c
+++ b/toke.c
@@ -4047,7 +4047,7 @@ Perl_yylex(pTHX)
 		    if (ckWARN(WARN_RESERVED)) {
 			if (lastchar != '-') {
 			    for (d = PL_tokenbuf; *d && isLOWER(*d); d++) ;
-			    if (!*d && strNE(PL_tokenbuf,"main"))
+			    if (!*d && !gv_stashpv(PL_tokenbuf,FALSE))
 				Perl_warner(aTHX_ packWARN(WARN_RESERVED), PL_warn_reserved,
 				       PL_tokenbuf);
 			}