Rename isQUOTEMETA to isQUOTEMETA_

The former is undefined behavior in C in some situations.

Author: khwilliamson

ext/XS-APItest/APItest.xs

@@ -6723,7 +6723,7 @@ test_UTF8_IS_REPLACEMENT(char *s, STRLEN len)
 bool
 test_isQUOTEMETA(UV ord)
     CODE:
-        RETVAL = _isQUOTEMETA(ord);
+        RETVAL = isQUOTEMETA_(ord);
     OUTPUT:
         RETVAL
 

handy.h

@@ -1691,7 +1691,7 @@ END_EXTERN_C
       (   (! cBOOL(FITS_IN_8_BITS(c)))                                      \
        || (PL_charclass[(U8) (c)] & CC_mask_(CC_NONLATIN1_FOLD_)))
 
-#   define _isQUOTEMETA(c) generic_isCC_(c, CC_QUOTEMETA_)
+#   define isQUOTEMETA_(c) generic_isCC_(c, CC_QUOTEMETA_)
 
 /* is c a control character for which we have a mnemonic? */
 #  if defined(PERL_CORE) || defined(PERL_EXT)

pp.c

@@ -5073,7 +5073,7 @@ PP(pp_quotemeta)
                 bool to_quote = FALSE;
 
                 if (UTF8_IS_INVARIANT(*s)) {
-                    if (_isQUOTEMETA(*s)) {
+                    if (isQUOTEMETA_(*s)) {
                         to_quote = TRUE;
                     }
                 }
@@ -5086,7 +5086,7 @@ PP(pp_quotemeta)
                     IN_LC_RUNTIME(LC_CTYPE)
                         ||
 #endif
-                        _isQUOTEMETA(EIGHT_BIT_UTF8_TO_NATIVE(*s, *(s + 1))))
+                        isQUOTEMETA_(EIGHT_BIT_UTF8_TO_NATIVE(*s, *(s + 1))))
                     {
                         to_quote = TRUE;
                     }
@@ -5108,7 +5108,7 @@ PP(pp_quotemeta)
         }
         else if (IN_UNI_8_BIT) {
             while (len--) {
-                if (_isQUOTEMETA(*s))
+                if (isQUOTEMETA_(*s))
                     *d++ = '\\';
                 *d++ = *s++;
             }