regcomp.c: Move some code to earlier

It is better defensive coding to restore as soon as possible, rather
than deferring it.

diff --git a/regcomp.c b/regcomp.c
index f5f48fd..17d87b6 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -16102,6 +16102,12 @@ redo_curchar:
                     NULL,
                     NULL
                 );
+
+    RExC_parse = save_parse + 1;
+    RExC_end = save_end;
+    SvREFCNT_dec_NN(final);
+    SvREFCNT_dec_NN(result_string);
+
     if (!node)
         FAIL2("panic: regclass returned failure to handle_sets, flags=%#" UVxf,
                     PTR2UV(flagp));
@@ -16136,11 +16142,6 @@ redo_curchar:
         RExC_flags |= RXf_PMf_FOLD;
     }
 
-    RExC_parse = save_parse + 1;
-    RExC_end = save_end;
-    SvREFCNT_dec_NN(final);
-    SvREFCNT_dec_NN(result_string);
-
     nextchar(pRExC_state);
     Set_Node_Length(REGNODE_p(node), RExC_parse - oregcomp_parse + 1); /* MJD */
     return node;