This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ff_chop.patch redux
authorAndy Lester <andy@petdance.com>
Mon, 21 Nov 2005 21:16:14 +0000 (15:16 -0600)
committerSteve Peters <steve@fisharerojo.org>
Tue, 22 Nov 2005 03:41:17 +0000 (03:41 +0000)
Message-ID: <20051122031614.GB19424@petdance.com>

p4raw-id: //depot/perl@26188

pp_ctl.c

index 40928ca..a1f1117 100644 (file)
--- 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) {