X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regcomp.c;h=89b3e53babf8e82478dc2c5743a720dbb8f477d1;hb=be26652545762cccb4c0118f022cf9d0ec20cf93;hp=95437105b87774053c13c5a4cbd6f17125843f1c;hpb=b21ed0a92b5a07dd021a85728802e72edfa03699;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regcomp.c b/regcomp.c
index 9543710..89b3e53 100644
--- 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--;