utf8n_to_uvuni: Use utf8_to_uv()

This is the preferred function
Perl · Dec 5, 2024 · eb8ddac · eb8ddac
1 parent 00f06a3
commit eb8ddac
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/mathoms.c b/mathoms.c
@@ -199,7 +199,9 @@ Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
 {
     PERL_ARGS_ASSERT_UTF8N_TO_UVUNI;
 
-    return NATIVE_TO_UNI(utf8n_to_uvchr(s, curlen, retlen, flags));
+    UV cp;
+    utf8_to_uv_flags(s, s + curlen, &cp, retlen, flags);
+    return NATIVE_TO_UNI(cp);
 }
 
 UV