From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 6 Mar 2001 15:34:00 +0000 (+0000)
Subject: Make /x{abcd}/ to work without use utf8.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aaa800280dee4b6e1a3c29a204a21ca87558d716;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@9058
---

diff --git a/regcomp.c b/regcomp.c
index 69d114e..9a935f7 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--;