Various changes to regex diagnostics and testing

[perl5.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 9bd5f0e..363e205 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4983,7 +4983,8 @@ NULL
          do_ifmatch:
            ST.me = scan;
            ST.logical = logical;
-           logical = 0;
+           logical = 0; /* XXX: reset state of logical once it has been saved into ST */
+           
            /* execute body of (?...A) */
            PUSH_YES_STATE_GOTO(IFMATCH_A, NEXTOPER(NEXTOPER(scan)));
            /* NOTREACHED */