restore incorrectly deleted note
authorYves Orton <demerphq@gmail.com>
Sun, 3 Apr 2016 08:50:22 +0000 (10:50 +0200)
committerYves Orton <demerphq@gmail.com>
Sun, 3 Apr 2016 08:50:22 +0000 (10:50 +0200)
regexec.c

index 29429b2..0c549df 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -6883,6 +6883,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
        }
 
        case EVAL_AB: /* cleanup after a successful (??{A})B */
+            /* note: this is called twice; first after popping B, then A */
             DEBUG_STACK_r({
                 Perl_re_exec_indentf( aTHX_  "EVAL_AB cur_eval=%p prev_eval=%p\n",
                     depth, cur_eval, ST.prev_eval);