Convert _is_utf8_perl_idstart to legal name

Author: khwilliamson

embed.fnc

@@ -1767,7 +1767,7 @@ ARTdip	|bool	|is_utf8_invariant_string_loc				\
 CRp	|bool	|_is_utf8_perl_idcont					\
 				|NN const U8 *p 			\
 				|NN const U8 * const e
-CRp	|bool	|_is_utf8_perl_idstart					\
+CRp	|bool	|is_utf8_perl_idstart_					\
 				|NN const U8 *p 			\
 				|NN const U8 * const e
 ARTdmp	|bool	|is_utf8_string |NN const U8 *s 			\

embed.h

@@ -120,7 +120,6 @@
 # define _is_uni_perl_idcont(a)                 Perl__is_uni_perl_idcont(aTHX_ a)
 # define _is_utf8_FOO(a,b,c)                    Perl__is_utf8_FOO(aTHX_ a,b,c)
 # define _is_utf8_perl_idcont(a,b)              Perl__is_utf8_perl_idcont(aTHX_ a,b)
-# define _is_utf8_perl_idstart(a,b)             Perl__is_utf8_perl_idstart(aTHX_ a,b)
 # define amagic_call(a,b,c,d)                   Perl_amagic_call(aTHX_ a,b,c,d)
 # define amagic_deref_call(a,b)                 Perl_amagic_deref_call(aTHX_ a,b)
 # define apply_attrs_string(a,b,c,d)            Perl_apply_attrs_string(aTHX_ a,b,c,d)
@@ -331,6 +330,7 @@
 # define Perl_is_utf8_fixed_width_buf_loc_flags is_utf8_fixed_width_buf_loc_flags
 # define is_utf8_fixed_width_buf_loclen_flags   Perl_is_utf8_fixed_width_buf_loclen_flags
 # define is_utf8_invariant_string_loc           Perl_is_utf8_invariant_string_loc
+# define is_utf8_perl_idstart_(a,b)             Perl_is_utf8_perl_idstart_(aTHX_ a,b)
 # define Perl_is_utf8_string                    is_utf8_string
 # define is_utf8_string_flags                   Perl_is_utf8_string_flags
 # define Perl_is_utf8_string_loc                is_utf8_string_loc

handy.h

@@ -2345,7 +2345,7 @@ END_EXTERN_C
  * modern Unicode definition */
 #define isIDFIRST_utf8_safe(p, e)                                           \
     generic_func_utf8_safe_(CC_IDFIRST_,                                    \
-                            _is_utf8_perl_idstart, (U8 *) (p), (U8 *) (e))
+                            is_utf8_perl_idstart_, (U8 *) (p), (U8 *) (e))
 
 #define isLOWER_utf8_safe(p, e)     generic_invlist_utf8_safe_(CC_LOWER_, p, e)
 #define isPRINT_utf8_safe(p, e)     generic_invlist_utf8_safe_(CC_PRINT_, p, e)
@@ -2448,7 +2448,7 @@ END_EXTERN_C
                                                 _is_utf8_perl_idcont, p, e)
 #define isIDFIRST_LC_utf8_safe(p, e)                                        \
             generic_LC_func_utf8_safe_(isIDFIRST_LC,                        \
-                                               _is_utf8_perl_idstart, p, e)
+                                               is_utf8_perl_idstart_, p, e)
 #define isLOWER_LC_utf8_safe(p, e)                                          \
             generic_LC_invlist_utf8_safe_(isLOWER_LC, CC_LOWER_, p, e)
 #define isPRINT_LC_utf8_safe(p, e)                                          \

proto.h

@@ -3914,9 +3914,9 @@ Perl__is_utf8_FOO(pTHX_ const U8 classnum, const U8 *p, const U8 * const e)
 }
 
 bool
-Perl__is_utf8_perl_idstart(pTHX_ const U8 *p, const U8 * const e)
+Perl_is_utf8_perl_idstart_(pTHX_ const U8 *p, const U8 * const e)
 {
-    PERL_ARGS_ASSERT__IS_UTF8_PERL_IDSTART;
+    PERL_ARGS_ASSERT_IS_UTF8_PERL_IDSTART_;
 
     return IS_UTF8_IN_INVLIST(p, e, PL_utf8_perl_idstart);
 }