Change 27469 by [EMAIL PROTECTED] on 2006/03/11 09:55:43
Subject: [PATCH] Localizing some vars in S_checkcomma
From: [EMAIL PROTECTED] (Andy Lester)
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 10 Mar 2006 16:31:00 -0600
Affected files ...
... //depot/perl/toke.c#662 edit
Differences ...
==== //depot/perl/toke.c#662 (text) ====
Index: perl/toke.c
--- perl/toke.c#661~27466~ 2006-03-10 13:54:18.000000000 -0800
+++ perl/toke.c 2006-03-11 01:55:43.000000000 -0800
@@ -10156,19 +10156,19 @@
S_checkcomma(pTHX_ const char *s, const char *name, const char *what)
{
dVAR;
- const char *w;
if (*s == ' ' && s[1] == '(') { /* XXX gotta be a better way */
if (ckWARN(WARN_SYNTAX)) {
int level = 1;
+ const char *w;
for (w = s+2; *w && level; w++) {
if (*w == '(')
++level;
else if (*w == ')')
--level;
}
- if (*w)
- for (; *w && isSPACE(*w); w++) ;
+ for (; *w && isSPACE(*w); w++)
+ /* EMPTY */;
if (!*w || !strchr(";|})]oaiuw!=", *w)) /* an advisory hack
only... */
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
"%s (...) interpreted as function",name);
@@ -10181,7 +10181,7 @@
while (s < PL_bufend && isSPACE(*s))
s++;
if (isIDFIRST_lazy_if(s,UTF)) {
- w = s++;
+ const char * const w = s++;
while (isALNUM_lazy_if(s,UTF))
s++;
while (s < PL_bufend && isSPACE(*s))
End of Patch.
