[perl #18544] Patch included to fix problem.

(from RT)

p4raw-id: //depot/perl@18342

diff --git a/regexec.c b/regexec.c
index 53e4015..4cf8069 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2110,6 +2110,7 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
     PL_reglastparen = &prog->lastparen;
     PL_reglastcloseparen = &prog->lastcloseparen;
     prog->lastparen = 0;
+    prog->lastcloseparen = 0;
     PL_regsize = 0;
     DEBUG_r(PL_reg_starttry = startpos);
     if (PL_reg_start_tmpl <= prog->nparens) {