From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 Aug 2001 14:24:26 +0000 (+0000)
Subject: Readability nit from Abhijit.
X-Git-Tag: accepted/trunk/20130322.191538~30711
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=64420d0dad7f104a674beb20cf3622ce16388536;p=platform%2Fupstream%2Fperl.git

Readability nit from Abhijit.

p4raw-id: //depot/perl@11552
---

diff --git a/op.c b/op.c
index 3e0d685..7fad9a4 100644
--- a/op.c
+++ b/op.c
@@ -2210,9 +2210,14 @@ Perl_localize(pTHX_ OP *o, I32 lex)
     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",