summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-10-05 12:23:24 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-10-05 12:23:24 +0000
commit586634170b2f5ccf13a9af971b91c10ce5e9b7d7 (patch)
tree9b65123d54c40d0058b36e180f3602796ffb027d
parent226de5851f473b1dd3e0cfeba1321a2066859a37 (diff)
downloadperl-586634170b2f5ccf13a9af971b91c10ce5e9b7d7.tar.gz
Nit in regcomp, discovered by a gcc warning, fixed by Yves
p4raw-id: //depot/perl@28942
-rw-r--r--regcomp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regcomp.c b/regcomp.c
index b2fe5b50f9..39a8469d6c 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;
}