diff options
author | David Mitchell <davem@iabyn.com> | 2012-05-23 11:39:28 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:32:53 +0100 |
commit | 97ca13b708ab3e04f8c819a06972a8ba0022e88d (patch) | |
tree | 5ad988c1501747cbc723623ed1498ee5b6e06954 | |
parent | 7e1a2c8d3379302594e45d7ac3b09fd4b6477ffc (diff) | |
download | perl-97ca13b708ab3e04f8c819a06972a8ba0022e88d.tar.gz |
set PL_reg_starttry correctly
PL_reg_starttry is only used for debugging, and S_regtry only set it
within DEBUG_EXECUTE_r; however, its value is also used within
DEBUG_STACK_r. So always set it when debugging, not just when
execute-debugging is enabled.
-rw-r--r-- | regexec.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -2670,7 +2670,9 @@ S_regtry(pTHX_ regmatch_info *reginfo, char **startpos) prog->subbeg = PL_bostr; prog->sublen = PL_regeol - PL_bostr; /* strend may have been modified */ } - DEBUG_EXECUTE_r(PL_reg_starttry = *startpos); +#ifdef DEBUGGING + PL_reg_starttry = *startpos; +#endif prog->offs[0].start = *startpos - PL_bostr; PL_reginput = *startpos; prog->lastparen = 0; |