Call PERL_ASYNC_CHECK when we backtrack in the regex engine

1 files changed, 1 insertions, 0 deletions

diff --git a/regexec.c b/regexec.c
index cdaa95cce5..587b7120f3 100644
--- a/regexec.c
+++ b/regexec.c
@@ -8426,6 +8426,7 @@ NULL
 	    yes_state = st->u.yes.prev_yes_state;
 
 	state_num = st->resume_state + 1; /* failure = success + 1 */
+        PERL_ASYNC_CHECK();
 	goto reenter_switch;
     }
     result = 0;