This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix address of register error from 26a0cb8
authorDavid Golden <dagolden@cpan.org>
Sun, 18 Jul 2010 01:50:40 +0000 (21:50 -0400)
committerDavid Golden <dagolden@cpan.org>
Sun, 18 Jul 2010 01:50:48 +0000 (21:50 -0400)
regcomp.c

index 74f996b..1b22d90 100644 (file)
--- 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;