Introduce Perl_utf8_length(). Use it.

p4raw-id: //depot/perl@7744

1 files changed, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index a9dd2f070d..a2e73e4bd0 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -3350,6 +3350,13 @@ Perl_utf16_to_utf8_reversed(pTHXo_ U8* p, U8 *d, I32 bytelen, I32 *newlen)
     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen, newlen);
 }
 
+#undef  Perl_utf8_length
+STRLEN
+Perl_utf8_length(pTHXo_ U8* s, U8 *e)
+{
+    return ((CPerlObj*)pPerl)->Perl_utf8_length(s, e);
+}
+
 #undef  Perl_utf8_distance
 I32
 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)