diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-07-11 13:44:50 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-11 13:29:14 +0000 |
| commit | f06a1d4e6ae96bf8af49f0ef1c79f500d8de0143 (patch) | |
| tree | df505a8b9ba9fc103233fb91601e421ffa1f211a /regexec.c | |
| parent | 576314d7f61ca5fb7814bb8412ab73459affb131 (diff) | |
| download | perl-f06a1d4e6ae96bf8af49f0ef1c79f500d8de0143.tar.gz | |
[ID 20000701.002] Regular Expressions Not Unsetting $1 Vars When Backtracking
Message-Id: <200007111144.MAA04446@crypt.compulink.co.uk>
p4raw-id: //depot/cfgperl@6337
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -3001,6 +3001,8 @@ S_regmatch(pTHX_ regnode *prog) else c1 = c2 = -1000; PL_reginput = locinput; + if (paren) + PL_regendp[paren] = -1; if (minmod) { CHECKPOINT lastcp; minmod = 0; |