X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=run.c;h=ab0d8f28944737e71880c98bb20f7b0a56425599;hb=e4c5322dee1b8e87ff0e7aee20effad846301447;hp=95bc6760b1fd604b7339ccc9fa36256ddefe5a1f;hpb=37442d52629699d89ef62d315d35efbc0facec21;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/run.c b/run.c
index 95bc676..ab0d8f2 100644
--- a/run.c
+++ b/run.c
@@ -1,7 +1,7 @@
 /*    run.c
  *
  *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- *    2000, 2001, by Larry Wall and others
+ *    2000, 2001, 2004, 2005, 2006, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -34,6 +34,7 @@
 int
 Perl_runops_standard(pTHX)
 {
+    dVAR;
     while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
 	PERL_ASYNC_CHECK();
     }