Change 11861 by jhi@alpha on 2001/09/04 12:48:14
Subject: [PATCH] 'main' *is* a reserved word
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Mon, 3 Sep 2001 22:55:41 +0200
Message-ID: <20010903225541.A24097@rafael>
Affected files ...
... //depot/perl/toke.c#381 edit
Differences ...
==== //depot/perl/toke.c#381 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Tue Sep 4 07:00:05 2001
+++ perl/toke.c Tue Sep 4 07:00:05 2001
@@ -3996,7 +3996,7 @@
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);
}
End of Patch.
