Make /x{abcd}/ to work without use utf8.

p4raw-id: //depot/perl@9058

1 files changed, 2 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index 69d114e9e9..9a935f72c2 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2881,6 +2881,8 @@ tryagain:
 			    else {
 				numlen = 1;	/* allow underscores */
 				ender = (UV)scan_hex(p + 1, e - p - 1, &numlen);
+				if (ender > 0xff)
+				    RExC_utf8 = 1;
 				/* numlen is generous */
 				if (numlen + len >= 127) {
 				    p--;