From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 5 Oct 2006 12:23:24 +0000 (+0000)
Subject: Nit in regcomp, discovered by a gcc warning, fixed by Yves
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=586634170b2f5ccf13a9af971b91c10ce5e9b7d7;p=p5sagit%2Fp5-mst-13.2.git

Nit in regcomp, discovered by a gcc warning, fixed by Yves

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

diff --git a/regcomp.c b/regcomp.c
index b2fe5b5..39a8469 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4442,8 +4442,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
 	            RExC_seen|=REG_SEEN_RECURSE;
     		}
                 Set_Node_Length(ret, 1 + regarglen[OP(ret)]); /* MJD */
-                Set_Node_Offset(ret, RExC_parse); /* MJD */
-                
+		Set_Node_Offset(ret, parse_start); /* MJD */
+
                 nextchar(pRExC_state);
                 return ret;
             }