Change 27480 by [EMAIL PROTECTED] on 2006/03/11 23:40:34
isSPACE('\0') is false, so can simplify the condition in the for
loop. As the for loop is basically a while loop, write it as one, to
make its intentions clearer.
Affected files ...
... //depot/perl/toke.c#663 edit
Differences ...
==== //depot/perl/toke.c#663 (text) ====
Index: perl/toke.c
--- perl/toke.c#662~27469~ 2006-03-11 01:55:43.000000000 -0800
+++ perl/toke.c 2006-03-11 15:40:34.000000000 -0800
@@ -10167,8 +10167,8 @@
else if (*w == ')')
--level;
}
- for (; *w && isSPACE(*w); w++)
- /* EMPTY */;
+ while (isSPACE(*w))
+ ++w;
if (!*w || !strchr(";|})]oaiuw!=", *w)) /* an advisory hack
only... */
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
"%s (...) interpreted as function",name);
End of Patch.
