Change 30184 by [EMAIL PROTECTED] on 2007/02/09 20:06:44
Subject: Re: [NL-PM] Fw: [PATCH - provisional] H. Merijn Brands idea of
buffer numbering.
From: demerphq <[EMAIL PROTECTED]>
Date: Fri, 9 Feb 2007 20:40:17 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regcomp.c#552 edit
Differences ...
==== //depot/perl/regcomp.c#552 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#551~30170~ 2007-02-08 02:16:14.000000000 -0800
+++ perl/regcomp.c 2007-02-09 12:06:44.000000000 -0800
@@ -5609,7 +5609,9 @@
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)));
End of Patch.
