Forbid "\c{" and \c{non-ascii}

[perl5.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 0951fa5..919035d 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11785,7 +11785,7 @@ tryagain:
                        }
                    case 'c':
                        p++;
-                       ender = grok_bslash_c(*p++, UTF, SIZE_ONLY);
+                       ender = grok_bslash_c(*p++, SIZE_ONLY);
                        break;
                     case '8': case '9': /* must be a backreference */
                         --p;
@@ -13528,7 +13528,7 @@ parseit:
                    goto recode_encoding;
                break;
            case 'c':
-               value = grok_bslash_c(*RExC_parse++, UTF, SIZE_ONLY);
+               value = grok_bslash_c(*RExC_parse++, SIZE_ONLY);
                break;
            case '0': case '1': case '2': case '3': case '4':
            case '5': case '6': case '7':