diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2006-04-10 07:18:35 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-10 15:46:27 +0000 |
| commit | 3c614e38268bf50bcc2ad69557629331412b4900 (patch) | |
| tree | 8fe72af7b2ae962047682a13f817771e85ad9040 /utf8.c | |
| parent | 0e528f24e7b99cb9698e649a1be36ce5daf462d9 (diff) | |
| download | perl-3c614e38268bf50bcc2ad69557629331412b4900.tar.gz | |
Fix coverity warning in utf8.c
Message-ID: <Pine.SOC.4.62.0604101117450.22851@maxwell.phys.lafayette.edu>
p4raw-id: //depot/perl@27757
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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 */ |