Update RExC_npar and after_freeze correctly after the first branch of a (?| ... )

This fixes RT #59734 : Segfault when using (?|) in regexp.

1 files changed, 7 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index bc7086f8df..7e80041d0b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6138,6 +6138,13 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
     /* Pick up the branches, linking them together. */
     parse_start = RExC_parse;   /* MJD */
     br = regbranch(pRExC_state, &flags, 1,depth+1);
+
+    if (freeze_paren) {
+        if (RExC_npar > after_freeze)
+            after_freeze = RExC_npar;
+        RExC_npar = freeze_paren;
+    }
+
     /*     branch_len = (paren != 0); */
 
     if (br == NULL)