Thinko in #7222.

p4raw-id: //depot/perl@7223

1 files changed, 1 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index c077182795..a713ea198b 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++;