From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 13 Oct 2000 18:05:23 +0000 (+0000)
Subject: Use UTF8SKIP(), from Simon Cozens.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97bc95472059d1dda25b407e80ce9946b88fc340;p=p5sagit%2Fp5-mst-13.2.git

Use UTF8SKIP(), from Simon Cozens.

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

diff --git a/utf8.c b/utf8.c
index 3ab402c..c077182 100644
--- a/utf8.c
+++ b/utf8.c
@@ -116,13 +116,7 @@ Perl_is_utf8_char(pTHX_ U8 *s)
     if (!(u & 0x40))
 	return 0;
 
-    if      (!(u & 0x20))	{ len = 2; }
-    else if (!(u & 0x10))	{ len = 3; }
-    else if (!(u & 0x08))	{ len = 4; }
-    else if (!(u & 0x04))	{ len = 5; }
-    else if (!(u & 0x02))	{ len = 6; }
-    else if (!(u & 0x01))	{ len = 7; }
-    else 			{ len = 13; } /* whoa! */
+    len = UTF8SKIP(u);
 
     slen = len - 1;
     s++;