This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Copyright++. (Not all the toplevel *.h have one, it seems.)
[perl5.git] / run.c
CommitLineData
a0d0e21e
LW
1/* run.c
2 *
be3c0a43 3 * Copyright (c) 1991-2002, Larry Wall
a0d0e21e
LW
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
79072805 10#include "EXTERN.h"
864dbfa3 11#define PERL_IN_RUN_C
79072805
LW
12#include "perl.h"
13
a0d0e21e
LW
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
a0d0e21e 20int
864dbfa3 21Perl_runops_standard(pTHX)
17c3b450 22{
155aba94 23 while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
da927450 24 PERL_ASYNC_CHECK();
cd39f2b6 25 }
fd18d308
CS
26
27 TAINT_NOT;
a0d0e21e 28 return 0;
79072805
LW
29}
30