Convert _toLOWER_utf8_flags to legal name

Author: khwilliamson

handy.h

@@ -2372,12 +2372,12 @@ END_EXTERN_C
 
 /* For internal core use only, subject to change */
 #define toFOLD_utf8_flags_(p,e,s,l,f)  to_utf8_fold_flags_(p,e,s,l,f)
-#define _toLOWER_utf8_flags(p,e,s,l,f) to_utf8_lower_flags_(p,e,s,l,f)
+#define toLOWER_utf8_flags_(p,e,s,l,f) to_utf8_lower_flags_(p,e,s,l,f)
 #define _toTITLE_utf8_flags(p,e,s,l,f) to_utf8_title_flags_(p,e,s,l,f)
 #define _toUPPER_utf8_flags(p,e,s,l,f) to_utf8_upper_flags_(p,e,s,l,f)
 
 #define toFOLD_utf8_safe(p,e,s,l)   toFOLD_utf8_flags_(p,e,s,l, FOLD_FLAGS_FULL)
-#define toLOWER_utf8_safe(p,e,s,l)  _toLOWER_utf8_flags(p,e,s,l, 0)
+#define toLOWER_utf8_safe(p,e,s,l)  toLOWER_utf8_flags_(p,e,s,l, 0)
 #define toTITLE_utf8_safe(p,e,s,l)  _toTITLE_utf8_flags(p,e,s,l, 0)
 #define toUPPER_utf8_safe(p,e,s,l)  _toUPPER_utf8_flags(p,e,s,l, 0)
 

pp.c

@@ -4160,7 +4160,7 @@ PP_wrapped(pp_ucfirst, 1, 0)
 
 #ifdef USE_LOCALE_CTYPE
 
-            _toLOWER_utf8_flags(s, s + slen, tmpbuf, &tculen, IN_LC_RUNTIME(LC_CTYPE));
+            toLOWER_utf8_flags_(s, s + slen, tmpbuf, &tculen, IN_LC_RUNTIME(LC_CTYPE));
 
             /* In turkic locales, lower casing an 'I' normally yields U+0131,
              * LATIN SMALL LETTER DOTLESS I, but not if the grapheme also
@@ -4192,7 +4192,7 @@ PP_wrapped(pp_ucfirst, 1, 0)
 #else
             PERL_UNUSED_VAR(remove_dot_above);
 
-            _toLOWER_utf8_flags(s, s + slen, tmpbuf, &tculen, 0);
+            toLOWER_utf8_flags_(s, s + slen, tmpbuf, &tculen, 0);
 #endif
 
         }
@@ -4873,7 +4873,7 @@ PP_wrapped(pp_lc, 1, 0)
 
 #ifdef USE_LOCALE_CTYPE
 
-            _toLOWER_utf8_flags(s, send, tmpbuf, &ulen, IN_LC_RUNTIME(LC_CTYPE));
+            toLOWER_utf8_flags_(s, send, tmpbuf, &ulen, IN_LC_RUNTIME(LC_CTYPE));
 
             /* If we are in a Turkic locale, we have to do more work.  As noted
              * in the comments for lcfirst, there is a special case if a 'I'
@@ -4882,7 +4882,7 @@ PP_wrapped(pp_lc, 1, 0)
              * and set a flag if the DOT is there.  Then each time through the
              * loop, we have to see if we need to remove the next DOT above,
              * and if so, do it.  We know that there is a DOT because
-             * _toLOWER_utf8_flags() wouldn't have returned 'i' unless there
+             * toLOWER_utf8_flags_() wouldn't have returned 'i' unless there
              * was one in a proper position. */
             if (   UNLIKELY(IN_UTF8_TURKIC_LOCALE)
                 && IN_LC_RUNTIME(LC_CTYPE))
@@ -4901,7 +4901,7 @@ PP_wrapped(pp_lc, 1, 0)
 #else
             PERL_UNUSED_VAR(remove_dot_above);
 
-            _toLOWER_utf8_flags(s, send, tmpbuf, &ulen, 0);
+            toLOWER_utf8_flags_(s, send, tmpbuf, &ulen, 0);
 #endif
 
             /* Here is where we would do context-sensitive actions for the