diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-02-09 21:40:17 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2007-02-09 20:06:44 +0000 |
| commit | c009da3dafe4ea3e8b9a40412519479ee7a0ea5e (patch) | |
| tree | 19d52f2a5caf52166dea147d0aaa433bf7d1aa93 /regcomp.c | |
| parent | 7bbf3f62557c764af92051f2603d0479af66afb2 (diff) | |
| download | perl-c009da3dafe4ea3e8b9a40412519479ee7a0ea5e.tar.gz | |
Re: [NL-PM] Fw: [PATCH - provisional] H. Merijn Brands idea of buffer numbering.
Message-ID: <9b18b3110702091140k12d60712uf9fffbf77141247c@mail.gmail.com>
p4raw-id: //depot/perl@30184
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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))); |