run.c

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