From: Yves Orton <demerphq@gmail.com>
Date: Fri, 9 Feb 2007 20:40:17 +0000 (+0100)
Subject: Re: [NL-PM] Fw: [PATCH - provisional] H. Merijn Brands idea of buffer numbering.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c009da3dafe4ea3e8b9a40412519479ee7a0ea5e;p=p5sagit%2Fp5-mst-13.2.git

Re: [NL-PM] Fw: [PATCH - provisional] H. Merijn Brands idea of buffer numbering.
Message-ID: <9b18b3110702091140k12d60712uf9fffbf77141247c@mail.gmail.com>

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

diff --git a/regcomp.c b/regcomp.c
index 27063a7..c526c3a 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5609,7 +5609,9 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
 	    if (!SIZE_ONLY ){
 	        if (!RExC_nestroot) 
 	            RExC_nestroot = parno;
-	        if (RExC_seen & REG_SEEN_RECURSE) {
+	        if (RExC_seen & REG_SEEN_RECURSE
+	            && !RExC_open_parens[parno-1])
+	        {
 		    DEBUG_OPTIMISE_MORE_r(PerlIO_printf(Perl_debug_log,
 			"Setting open paren #%"IVdf" to %d\n", 
 			(IV)parno, REG_NODE_NUM(ret)));