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.

p4raw-id: //depot/perl@27480

1 files changed, 2 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index f16964e47b..f256310bea 100644
--- a/toke.c
+++ b/toke.c
@@ -10167,8 +10167,8 @@ S_checkcomma(pTHX_ const char *s, const char *name, const char *what)
 		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);