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
Perl_runops_standard(pTHX)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
32