From: Andy Dougherty <doughera@lafayette.edu>
Date: Mon, 10 Apr 2006 11:18:35 +0000 (-0400)
Subject: Fix coverity warning in utf8.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c614e38268bf50bcc2ad69557629331412b4900;p=p5sagit%2Fp5-mst-13.2.git

Fix coverity warning in utf8.c
Message-ID: <Pine.SOC.4.62.0604101117450.22851@maxwell.phys.lafayette.edu>

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

diff --git a/utf8.c b/utf8.c
index f3b7a3b..29cae31 100644
--- a/utf8.c
+++ b/utf8.c
@@ -283,9 +283,10 @@ Perl_is_utf8_string(pTHX_ const U8 *s, STRLEN len)
 	     c = UTF8SKIP(x);
 	     if (IS_UTF8_CHAR_FAST(c)) {
 	         if (!IS_UTF8_CHAR(x, c))
-		     goto out;
-	     } else if (!is_utf8_char_slow(x, c))
-	         goto out;
+		     c = 0;
+	     }
+	     else
+		c = is_utf8_char_slow(x, c);
 #else
 	     c = is_utf8_char(x);
 #endif /* #ifdef IS_UTF8_CHAR */