Replace uvuni_to_utf8() with a macro that passes the extra 0 argument

to uvuni_to_utf8_flags(). Move the old body to mathoms.c

p4raw-id: //depot/perl@25905

1 files changed, 6 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index 307915ccdb..d8a84b5ba2 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -782,6 +782,12 @@ PP(pp_mapstart)
     DIE(aTHX_ "panic: mapstart");	/* uses grepstart */
 }
 
+U8 *
+Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
+{
+    return Perl_uvuni_to_utf8_flags(aTHX_ d, uv, 0);
+}
+
 bool
 Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep)
 {