fix broken parsing of /\x{ab}/

p4raw-id: //depot/perl@6057

diff --git a/regcomp.c b/regcomp.c
index 9543710..89b3e53 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -2606,7 +2606,7 @@ tryagain:
                                FAIL("Missing right brace on \\x{}");
                            else if (UTF) {
                                numlen = 1;     /* allow underscores */
-                               ender = (UV)scan_hex(p + 1, e - p, &numlen);
+                               ender = (UV)scan_hex(p + 1, e - p - 1, &numlen);
                                /* numlen is generous */
                                if (numlen + len >= 127) {
                                    p--;

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 79596ab..16a1586 100755 (executable)
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..60\n";
+print "1..61\n";
 
 my $test = 1;
 
@@ -265,4 +265,7 @@ sub ok {
        $test++;                                # 60
 
     }
+
+    ok "\x{ab}" =~ /^\x{ab}$/, 1;
+    $test++;                                   # 61
 }