Change 30725: [PATCH] Silence compiler warning in util.c

[Rafael Garcia-Suarez]

Change 30725 by [EMAIL PROTECTED] on 2007/03/23 16:45:14

        Subject: [PATCH] Silence compiler warning in util.c
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Fri, 23 Mar 2007 09:40:02 -0700 (PDT)
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/util.c#621 edit

Differences ...

==== //depot/perl/util.c#621 (text) ====
Index: perl/util.c
--- perl/util.c#620~30670~      2007-03-21 14:28:35.000000000 -0700
+++ perl/util.c 2007-03-23 09:45:14.000000000 -0700
@@ -421,13 +421,13 @@
         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;
End of Patch.