summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2012-05-23 11:39:28 +0100
committerDavid Mitchell <davem@iabyn.com>2012-06-13 13:32:53 +0100
commit97ca13b708ab3e04f8c819a06972a8ba0022e88d (patch)
tree5ad988c1501747cbc723623ed1498ee5b6e06954
parent7e1a2c8d3379302594e45d7ac3b09fd4b6477ffc (diff)
downloadperl-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.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/regexec.c b/regexec.c
index 76ad57db28..243387f823 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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;