From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 25 Aug 1998 15:35:58 +0000 (-0400)
Subject: Re: problem with (?p{}) [PATCH 5.005_5*]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d37908890678cc520478783c272a10631e81a5d0;p=p5sagit%2Fp5-mst-13.2.git

Re: problem with (?p{}) [PATCH 5.005_5*]

	Message-Id: <199808251935.PAA11384@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1875
---

diff --git a/regexec.c b/regexec.c
index bcba723..d4e1fc4 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1671,6 +1671,7 @@ regmatch(regnode *prog)
 		    PL_reg_call_cc = state.prev;
 		    PL_regcc = state.cc;
 		    PL_reg_re = state.re;
+		    cache_re(PL_reg_re);
 		    sayNO;
 		}
 		sw = SvTRUE(ret);