diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-01 03:20:39 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-01 03:20:39 +0000 |
commit | de5f0749ee4fa4a85092e853d4c2971a66843dc4 (patch) | |
tree | fce2644fa7aa8bce78ef623150a1e8a9f80efd23 /regcomp.c | |
parent | 5fb7366ef2085d0e4f43361f99c3404a8ae1fe9c (diff) | |
download | perl-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.c | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -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 */ |