From b0ca24ee9834c59905841bc9a868f799da15f1bc Mon Sep 17 00:00:00 2001 From: "Jerry D. Hedden" Date: Fri, 23 Mar 2007 02:40:02 -0700 Subject: [PATCH] Silence compiler warning in util.c From: "Jerry D. Hedden" Message-ID: <256688.25862.qm@web30215.mail.mud.yahoo.com> p4raw-id: //depot/perl@30725 --- util.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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; -- 2.7.4