This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix up Larry's copyright statements to my best knowledge.
[perl5.git] / 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