From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 29 Nov 2000 03:06:30 +0000 (+0000)
Subject: This should have been part of #7872: no need to scan UTF-8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e4dc9fc3f643d91ce923f3b065a55e7a020e3a4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
 }
 
 /*