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 (file)
--- 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;