perldelta for 9efda33a86bb, 296f0d566b9f

[perl5.git] / run.c

diff --git a/run.c b/run.c
index 01b5f06..8f0224a 100644 (file)
--- a/run.c
+++ b/run.c
@@ -36,12 +36,12 @@
 int
 Perl_runops_standard(pTHX)
 {
-    dVAR;
     OP *op = PL_op;
     OP_ENTRY_PROBE(OP_NAME(op));
     while ((PL_op = op = op->op_ppaddr(aTHX))) {
         OP_ENTRY_PROBE(OP_NAME(op));
     }
+    PERL_ASYNC_CHECK();
 
     TAINT_NOT;
     return 0;