From: David Golden <dagolden@cpan.org>
Date: Sun, 18 Jul 2010 01:50:40 +0000 (-0400)
Subject: Fix address of register error from 26a0cb8
X-Git-Tag: accepted/trunk/20130322.191538~8436
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=00c0cb6d254eaba165c8445a6e68686b8285b5a3;p=platform%2Fupstream%2Fperl.git

Fix address of register error from 26a0cb8
---

diff --git a/regcomp.c b/regcomp.c
index 74f996b..1b22d90 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;