This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix coverity warning in utf8.c
authorAndy Dougherty <doughera@lafayette.edu>
Mon, 10 Apr 2006 11:18:35 +0000 (07:18 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 10 Apr 2006 15:46:27 +0000 (15:46 +0000)
Message-ID: <Pine.SOC.4.62.0604101117450.22851@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@27757

utf8.c

diff --git a/utf8.c b/utf8.c
index f3b7a3b..29cae31 100644 (file)
--- 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 */