From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Fri, 23 Mar 2007 09:40:02 +0000 (-0700)
Subject: Silence compiler warning in util.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0ca24ee9834c59905841bc9a868f799da15f1bc;p=p5sagit%2Fp5-mst-13.2.git

Silence compiler warning in util.c
From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <256688.25862.qm@web30215.mail.mud.yahoo.com>

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

diff --git a/util.c b/util.c
index 80e283b..7478c39 100644
--- a/util.c
+++ b/util.c
@@ -421,13 +421,13 @@ Perl_ninstr(pTHX_ const char *big, const char *bigend, const char *little, const
         bigend -= lend - little;
     OUTER:
         while (big <= bigend) {
-            if (*big++ != first)
-                goto OUTER;
-            for (x=big,s=little; s < lend; x++,s++) {
-                if (*s != *x)
-                    goto OUTER;
+            if (*big++ == first) {
+                for (x=big,s=little; s < lend; x++,s++) {
+                    if (*s != *x)
+                        goto OUTER;
+                }
+                return (char*)(big-1);
             }
-            return (char*)(big-1);
         }
     }
     return NULL;