diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-11-27 11:16:48 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 19:23:53 +0000 |
| commit | 364723c2ea2c2681016fad994c4f40cc3a0bb17d (patch) | |
| tree | 4e88b4c147419b329cbaad35a2788a43645d09da /regexec.c | |
| parent | d88dccdfb395b1157f084b2065b4dae06e68381b (diff) | |
| download | perl-364723c2ea2c2681016fad994c4f40cc3a0bb17d.tar.gz | |
better -Mre=debugcolor
Message-Id: <199811272116.QAA03502@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@2371
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1080,6 +1080,7 @@ regtry(regexp *prog, char *startpos) PL_reglastparen = &prog->lastparen; prog->lastparen = 0; PL_regsize = 0; + DEBUG_r(PL_reg_starttry = startpos); if (PL_reg_start_tmpl <= prog->nparens) { PL_reg_start_tmpl = prog->nparens*3/2 + 3; if(PL_reg_start_tmp) @@ -1161,7 +1162,7 @@ regmatch(regnode *prog) int l = (PL_regeol - locinput > taill ? taill : PL_regeol - locinput); int pref_len = (locinput - PL_bostr > (5 + taill) - l ? (5 + taill) - l : locinput - PL_bostr); - int pref0_len = pref_len - (locinput - PL_reginput); + int pref0_len = pref_len - (locinput - PL_reg_starttry); if (l + pref_len < (5 + taill) && l < PL_regeol - locinput) l = ( PL_regeol - locinput > (5 + taill) - pref_len |