diff --git a/embed.fnc b/embed.fnc index efe62e6502b7..9f98369d66d0 100644 --- a/embed.fnc +++ b/embed.fnc @@ -3890,7 +3890,7 @@ Admp |U8 * |uv_to_utf8_msgs|NN U8 *d \ |UV uv \ |UV flags \ |NULLOK HV **msgs -CDbp |U8 * |uvuni_to_utf8 |NN U8 *d \ +ADbdp |U8 * |uvuni_to_utf8 |NN U8 *d \ |UV uv EXdpx |bool |validate_proto |NN SV *name \ |NULLOK SV *proto \ diff --git a/mathoms.c b/mathoms.c index f519db3a32e6..ac1e1e38313d 100644 --- a/mathoms.c +++ b/mathoms.c @@ -142,6 +142,15 @@ Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen) return NATIVE_TO_UNI(valid_utf8_to_uvchr(s, retlen)); } +/* +=for apidoc_section $unicode +=for apidoc uvuni_to_utf8 + +Instead use L. + +=cut +*/ + U8 * Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv) {