summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-11-04 18:38:34 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-11-04 18:38:34 +0000
commit973dddac3cae262865053bf44d56f52beac46f92 (patch)
tree01f513ea292a09f06f364f7d31bf7f1669192efc /regexec.c
parent4a8ebb7f2bc69c2b7689190ca0f678605f6299e9 (diff)
downloadperl-973dddac3cae262865053bf44d56f52beac46f92.tar.gz
Revert patch #25993.
p4raw-id: //depot/perl@25998
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index d4ec7c2635..e058216ce6 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2177,7 +2177,7 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
prog->subbeg = PL_bostr;
prog->sublen = PL_regeol - PL_bostr; /* strend may have been modified */
}
- /* prog->startp[0] = startpos - PL_bostr; */
+ prog->startp[0] = startpos - PL_bostr;
PL_reginput = startpos;
PL_regstartp = prog->startp;
PL_regendp = prog->endp;
@@ -2221,7 +2221,6 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
#endif
REGCP_SET(lastcp);
if (regmatch(prog->program + 1)) {
- prog->startp[0] = startpos - PL_bostr;
prog->endp[0] = PL_reginput - PL_bostr;
return 1;
}