diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-03-14 18:10:19 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-03-15 00:30:13 +0100 |
| commit | 6aeaca273d90ffa696c08178f9f9ccd259b44760 (patch) | |
| tree | 8e69c17432e0bd26c39e84e0c30f5d01a3b02b07 /regexec.c | |
| parent | 47718690d4981790ebf65ad5428eccb95190be32 (diff) | |
| download | perl-6aeaca273d90ffa696c08178f9f9ccd259b44760.tar.gz | |
fixup broken diagnostic
we shouldnt show this in normal re debug mode, just when debugging the stack,
also the macro wasnt using the STR argument like it should
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -6868,8 +6868,8 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) #define SET_RECURSE_LOCINPUT(STR,VAL)\ if ( cur_eval && CUR_EVAL.close_paren ) {\ - DEBUG_EXECUTE_r({ \ - Perl_re_exec_indentf( aTHX_ "EVAL_AB[before] GOSUB%d ce=%p recurse_locinput=%p\n",\ + DEBUG_STACK_r({ \ + Perl_re_exec_indentf( aTHX_ STR " GOSUB%d ce=%p recurse_locinput=%p\n",\ depth, \ CUR_EVAL.close_paren - 1,\ cur_eval, \ |