diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-05-13 01:09:46 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-15 04:24:45 +0000 |
| commit | 238ae7127bc19e64a92badbfc0a4b72cf6ded32b (patch) | |
| tree | cc34e0a81d7ef46b629bbaf1ed5f923ddbdb112a | |
| parent | fe18a095e7ff2e4ee435479a0256b68ea5b1ec8b (diff) | |
| download | perl-238ae7127bc19e64a92badbfc0a4b72cf6ded32b.tar.gz | |
Re: use of lc module names and warnings
Message-ID: <20020512230946.E699@rafael>
p4raw-id: //depot/perl@16606
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |