diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-05 12:23:24 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-05 12:23:24 +0000 |
commit | 586634170b2f5ccf13a9af971b91c10ce5e9b7d7 (patch) | |
tree | 9b65123d54c40d0058b36e180f3602796ffb027d | |
parent | 226de5851f473b1dd3e0cfeba1321a2066859a37 (diff) | |
download | perl-586634170b2f5ccf13a9af971b91c10ce5e9b7d7.tar.gz |
Nit in regcomp, discovered by a gcc warning, fixed by Yves
p4raw-id: //depot/perl@28942
-rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; } |