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 31