summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-12-01 03:20:39 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-12-01 03:20:39 +0000
commitde5f0749ee4fa4a85092e853d4c2971a66843dc4 (patch)
treefce2644fa7aa8bce78ef623150a1e8a9f80efd23 /regcomp.c
parent5fb7366ef2085d0e4f43361f99c3404a8ae1fe9c (diff)
downloadperl-de5f0749ee4fa4a85092e853d4c2971a66843dc4.tar.gz
\x{} doesn't any more require 'use utf8' outside regexen so why
should it be required inside regexen? p4raw-id: //depot/perl@7938
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c8
1 files changed, 1 insertions, 7 deletions
diff --git a/regcomp.c b/regcomp.c
index f09e49dd9a..784e83e43b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2912,7 +2912,7 @@ tryagain:
RExC_parse = p + 1;
vFAIL("Missing right brace on \\x{}");
}
- else if (UTF) {
+ else {
numlen = 1; /* allow underscores */
ender = (UV)scan_hex(p + 1, e - p - 1, &numlen);
/* numlen is generous */
@@ -2922,12 +2922,6 @@ tryagain:
}
p = e + 1;
}
- else
- {
- RExC_parse = e + 1;
- vFAIL("Can't use \\x{} without 'use utf8' declaration");
- }
-
}
else {
numlen = 0; /* disallow underscores */