From: Andy Lester <andy@petdance.com>
Date: Mon, 21 Nov 2005 21:16:14 +0000 (-0600)
Subject: ff_chop.patch redux
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af68e75656cbfd664098f1282fc660db7e34b9ca;p=p5sagit%2Fp5-mst-13.2.git

ff_chop.patch redux
Message-ID: <20051122031614.GB19424@petdance.com>

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 40928ca..a1f1117 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -726,7 +726,7 @@ PP(pp_formline)
 	    {
 		const char *s = chophere;
 		if (chopspace) {
-		    while (*s && isSPACE(*s))
+		    while (isSPACE(*s))
 			s++;
 		}
 		sv_chop(sv,s);
@@ -864,7 +864,7 @@ PP(pp_formline)
 		const char *s = chophere;
 		const char *send = item + len;
 		if (chopspace) {
-		    while (*s && isSPACE(*s) && s < send)
+		    while (isSPACE(*s) && (s < send))
 			s++;
 		}
 		if (s < send) {