1 files changed, 1 insertions, 0 deletions
diff --git a/run.c b/run.c
index 95bc6760b1..c700bb96c6 100644
--- a/run.c
+++ b/run.c
@@ -34,6 +34,7 @@
 int
 Perl_runops_standard(pTHX)
 {
+    dVAR;
     while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
 	PERL_ASYNC_CHECK();
     }