From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 13 Oct 2000 18:37:13 +0000 (+0000)
Subject: Thinko in #7222.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f07fdcd4d463e2090de7661b6a313c8ecc5278b;p=p5sagit%2Fp5-mst-13.2.git

Thinko in #7222.

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

diff --git a/utf8.c b/utf8.c
index c077182..a713ea1 100644
--- a/utf8.c
+++ b/utf8.c
@@ -116,7 +116,7 @@ Perl_is_utf8_char(pTHX_ U8 *s)
     if (!(u & 0x40))
 	return 0;
 
-    len = UTF8SKIP(u);
+    len = UTF8SKIP(s);
 
     slen = len - 1;
     s++;