diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-04 18:38:34 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-04 18:38:34 +0000 |
commit | 973dddac3cae262865053bf44d56f52beac46f92 (patch) | |
tree | 01f513ea292a09f06f364f7d31bf7f1669192efc /regexec.c | |
parent | 4a8ebb7f2bc69c2b7689190ca0f678605f6299e9 (diff) | |
download | perl-973dddac3cae262865053bf44d56f52beac46f92.tar.gz |
Revert patch #25993.
p4raw-id: //depot/perl@25998
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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; } |