diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-09-04 00:55:41 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-04 12:48:14 +0000 |
| commit | 9bbb1adaf4f03189507dea28ff5773b762523248 (patch) | |
| tree | 3331fcc107013d70f6a46bd16e6d07029deb0f7e /toke.c | |
| parent | fe05d1a7f63cf11414017abdc1edd6615d080183 (diff) | |
| download | perl-9bbb1adaf4f03189507dea28ff5773b762523248.tar.gz | |
'main' *is* a reserved word
Message-ID: <20010903225541.A24097@rafael>
p4raw-id: //depot/perl@11861
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3996,7 +3996,7 @@ Perl_yylex(pTHX) if (ckWARN(WARN_RESERVED)) { if (lastchar != '-') { for (d = PL_tokenbuf; *d && isLOWER(*d); d++) ; - if (!*d) + if (!*d && strNE(PL_tokenbuf,"main")) Perl_warner(aTHX_ WARN_RESERVED, PL_warn_reserved, PL_tokenbuf); } |