This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix copy & paste bugs in mX?PUSH macro tests.
[perl5.git] / run.c
CommitLineData
a0d0e21e
LW
1/* run.c
2 *
4bb101f2
JH
3 * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4 * 2000, 2001, by Larry Wall and others
a0d0e21e
LW
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
79072805 11#include "EXTERN.h"
864dbfa3 12#define PERL_IN_RUN_C
79072805
LW
13#include "perl.h"
14
a0d0e21e
LW
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
a0d0e21e 21int
864dbfa3 22Perl_runops_standard(pTHX)
17c3b450 23{
155aba94 24 while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
da927450 25 PERL_ASYNC_CHECK();
cd39f2b6 26 }
fd18d308
CS
27
28 TAINT_NOT;
a0d0e21e 29 return 0;
79072805
LW
30}
31