From: Richard Kandarian <richard.kandarian@lanl.gov>
Date: Thu, 21 Nov 2002 08:00:20 +0000 (-0700)
Subject: [perl #18544] Patch included to fix problem.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03994de86de9fdff188863fc25636fecf2362e27;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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) {