From 03994de86de9fdff188863fc25636fecf2362e27 Mon Sep 17 00:00:00 2001
From: Richard Kandarian <richard.kandarian@lanl.gov>
Date: Thu, 21 Nov 2002 01:00:20 -0700
Subject: [perl #18544] Patch included to fix problem. (from RT)

p4raw-id: //depot/perl@18342
---
 regexec.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/regexec.c b/regexec.c
index 53e4015bed..4cf80692f2 100644
--- 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) {
-- 
cgit v1.2.1