Remove double underscore in internal function name

This function was added in 5.16, and has no callers in CPAN.  It is
undocumented and marked as changeable.  Its name has two underscores in
a row by mistake.  This removes one of them.

diff --git a/embed.fnc b/embed.fnc
index 409d75a..3b9767b 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -646,7 +646,7 @@ Anpd        |bool   |is_utf8_string_loclen|NN const U8 *s|STRLEN len|NULLOK const U8 **ep
 ApR    |bool   |is_utf8_alnum  |NN const U8 *p
 ApR    |bool   |is_utf8_idfirst|NN const U8 *p
 ApR    |bool   |is_utf8_xidfirst|NN const U8 *p
-AMpR   |bool   |_is_utf8__perl_idstart|NN const U8 *p
+AMpR   |bool   |_is_utf8_perl_idstart|NN const U8 *p
 ApR    |bool   |is_utf8_idcont |NN const U8 *p
 ApR    |bool   |is_utf8_xidcont        |NN const U8 *p
 ApR    |bool   |is_utf8_alpha  |NN const U8 *p

diff --git a/embed.h b/embed.h
index c5b169d..473ab33 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -27,7 +27,7 @@
 /* Hide global symbols */
 
 #define Gv_AMupdate(a,b)       Perl_Gv_AMupdate(aTHX_ a,b)
-#define _is_utf8__perl_idstart(a)      Perl__is_utf8__perl_idstart(aTHX_ a)
+#define _is_utf8_perl_idstart(a)       Perl__is_utf8_perl_idstart(aTHX_ a)
 #define _to_uni_fold_flags(a,b,c,d)    Perl__to_uni_fold_flags(aTHX_ a,b,c,d)
 #define _to_utf8_fold_flags(a,b,c,d,e) Perl__to_utf8_fold_flags(aTHX_ a,b,c,d,e)
 #define _to_utf8_lower_flags(a,b,c,d,e)        Perl__to_utf8_lower_flags(aTHX_ a,b,c,d,e)

diff --git a/handy.h b/handy.h
index 178d975..c03853e 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -997,7 +997,7 @@ EXTCONST U32 PL_charclass[];
  * difference.) This used to be not the XID version, but we decided to go with
  * the more modern Unicode definition */
 #define isIDFIRST_utf8(p)       _generic_utf8(_CC_IDFIRST,               \
-                                              _is_utf8__perl_idstart, p)
+                                              _is_utf8_perl_idstart, p)
 
 #define isIDCONT_utf8(p)        _generic_utf8(_CC_WORDCHAR, is_utf8_xidcont, p)
 #define isALPHA_utf8(p)         _generic_utf8(_CC_ALPHA, is_utf8_alpha, p)

diff --git a/proto.h b/proto.h
index 10d8889..560798a 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -32,10 +32,10 @@ PERL_CALLCONV void  Perl_Slab_Free(pTHX_ void *op)
 #define PERL_ARGS_ASSERT_SLAB_FREE     \
        assert(op)
 
-PERL_CALLCONV bool     Perl__is_utf8__perl_idstart(pTHX_ const U8 *p)
+PERL_CALLCONV bool     Perl__is_utf8_perl_idstart(pTHX_ const U8 *p)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT__IS_UTF8__PERL_IDSTART        \
+#define PERL_ARGS_ASSERT__IS_UTF8_PERL_IDSTART \
        assert(p)
 
 PERL_CALLCONV UV       Perl__to_uni_fold_flags(pTHX_ UV c, U8 *p, STRLEN *lenp, const U8 flags)

diff --git a/utf8.c b/utf8.c
index b4810f1..075f4c3 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1997,11 +1997,11 @@ Perl_is_utf8_xidfirst(pTHX_ const U8 *p) /* The naming is historical. */
 }
 
 bool
-Perl__is_utf8__perl_idstart(pTHX_ const U8 *p)
+Perl__is_utf8_perl_idstart(pTHX_ const U8 *p)
 {
     dVAR;
 
-    PERL_ARGS_ASSERT__IS_UTF8__PERL_IDSTART;
+    PERL_ARGS_ASSERT__IS_UTF8_PERL_IDSTART;
 
     return is_utf8_common(p, &PL_utf8_perl_idstart, "_Perl_IDStart");
 }