run.c

   1 /*    run.c
   2  *
   3  *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
   4  *    2000, 2001, by Larry Wall and others
   5  *
   6  *    You may distribute under the terms of either the GNU General Public
   7  *    License or the Artistic License, as specified in the README file.
   8  *
   9  */
  10
  11 #include "EXTERN.h"
  12 #define PERL_IN_RUN_C
  13 #include "perl.h"
  14
  15 /*
  16  * "Away now, Shadowfax!  Run, greatheart, run as you have never run before!
  17  * Now we are come to the lands where you were foaled, and every stone you
  18  * know.  Run now!  Hope is in speed!"  --Gandalf
  19  */
  20
  21 int
  22 Perl_runops_standard(pTHX)
  23 {
  24     while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
  25         PERL_ASYNC_CHECK();
  26     }
  27
  28     TAINT_NOT;
  29     return 0;
  30 }
  31