From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 11 Mar 2006 23:40:34 +0000 (+0000)
Subject: isSPACE('\0') is false, so can simplify the condition in the for
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=888fea98b0a0f888136baacef34e1416016481b6;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/toke.c b/toke.c
index f16964e..f256310 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);