fix off-by-one that resulted in misparse of C</[\x{80}-\x{81}]/>

p4raw-id: //depot/perl@3136

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index a325b42f77..bacf2ca440 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2498,7 +2498,7 @@ regclassutf8(void)
 		    e = strchr(PL_regcomp_parse++, '}');
                     if (!e)
                         FAIL("Missing right brace on \\x{}");
-		    value = scan_hex(PL_regcomp_parse + 1, e - PL_regcomp_parse, &numlen);
+		    value = scan_hex(PL_regcomp_parse, e - PL_regcomp_parse, &numlen);
 		    PL_regcomp_parse = e + 1;
 		}
 		else {