This should have been part of #7872: no need to scan UTF-8

until eternity.

p4raw-id: //depot/perl@7911

diff --git a/utf8.c b/utf8.c
index 3bbfdf1..48c772d 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -350,7 +350,7 @@ returned and retlen is set, if possible, to -1.
 UV
 Perl_utf8_to_uv_simple(pTHX_ U8* s, STRLEN* retlen)
 {
-    return Perl_utf8_to_uv(aTHX_ s, (STRLEN)-1, retlen, 0);
+    return Perl_utf8_to_uv(aTHX_ s, UTF8_MAXLEN, retlen, 0);
 }
 
 /*