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