mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

utf8n_to_uvuni: Use utf8_to_uv()

Browse Source 
This is the preferred function
This commit is contained in:
Karl Williamson 2024-12-05 10:37:05 -07:00 committed by Karl Williamson
parent d595b3d23a
commit d62b9facee
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mathoms.c
View File

@ -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;
(void) utf8_to_uv_flags(s, s + curlen, &cp, retlen, flags);
return NATIVE_TO_UNI(cp);
}
UV