This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update META.json after JSON-PP update
[perl5.git] / regexec.c
index cdaa95c..587b712 100644 (file)
--- 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;