Change 11552 by jhi@alpha on 2001/08/02 14:24:26
Readability nit from Abhijit.
Affected files ...
... //depot/perl/op.c#422 edit
Differences ...
==== //depot/perl/op.c#422 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Thu Aug 2 08:30:05 2001
+++ perl/op.c Thu Aug 2 08:30:05 2001
@@ -2210,9 +2210,14 @@
if (o->op_flags & OPf_PARENS)
list(o);
else {
- if (ckWARN(WARN_PARENTHESIS) && PL_bufptr > PL_oldbufptr && PL_bufptr[-1] ==
',') {
- char *s;
- for (s = PL_bufptr; *s && (isALNUM(*s) || UTF8_IS_CONTINUED(*s) ||
strchr("@$%, ",*s)); s++) ;
+ if (ckWARN(WARN_PARENTHESIS)
+ && PL_bufptr > PL_oldbufptr && PL_bufptr[-1] == ',')
+ {
+ char *s = PL_bufptr;
+
+ while (*s && (isALNUM(*s) || UTF8_IS_CONTINUED(*s) || strchr("@$%, ", *s)))
+ s++;
+
if (*s == ';' || *s == '=')
Perl_warner(aTHX_ WARN_PARENTHESIS,
"Parentheses missing around \"%s\" list",
End of Patch.
