diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-03 18:34:01 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-03 18:34:01 +0000 |
| commit | de35ba6fa6685dd401ba3904290b7c5d67884c23 (patch) | |
| tree | c3cbb451dc5fc5fdb826e14740d4eb0698dee287 /regcomp.c | |
| parent | 1f24770523b86085797280e0a7daee28bb477133 (diff) | |
| download | perl-de35ba6fa6685dd401ba3904290b7c5d67884c23.tar.gz | |
fix broken parsing of /\x{ab}/
p4raw-id: //depot/perl@6057
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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--; |