summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Golden <dagolden@cpan.org>2010-07-17 21:50:40 -0400
committerDavid Golden <dagolden@cpan.org>2010-07-17 21:50:48 -0400
commit00c0cb6d254eaba165c8445a6e68686b8285b5a3 (patch)
treea55b6f5efb8078e6274b18f7678bd1ff7971f884
parent043415659c1f373d9be6971c179dec7515bf9b21 (diff)
downloadperl-00c0cb6d254eaba165c8445a6e68686b8285b5a3.tar.gz
Fix address of register error from 26a0cb8
-rw-r--r--regcomp.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 74f996bcd6..1b22d90594 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -7466,14 +7466,19 @@ tryagain:
case 'o':
{
STRLEN brace_len = len;
+ UV result;
if ((error_msg = grok_bslash_o(p,
- &ender,
+ &result,
&brace_len,
SIZE_ONLY))
!= NULL)
{
vFAIL(error_msg);
}
+ else
+ {
+ ender = result;
+ }
p += brace_len;
if (PL_encoding && ender < 0x100) {
goto recode_encoding;