1N/A/* run.c
1N/A *
1N/A * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
1N/A * 2000, 2001, by Larry Wall and others
1N/A *
1N/A * You may distribute under the terms of either the GNU General Public
1N/A * License or the Artistic License, as specified in the README file.
1N/A *
1N/A */
1N/A
1N/A#include "EXTERN.h"
1N/A#define PERL_IN_RUN_C
1N/A#include "perl.h"
1N/A
1N/A/*
1N/A * "Away now, Shadowfax! Run, greatheart, run as you have never run before!
1N/A * Now we are come to the lands where you were foaled, and every stone you
1N/A * know. Run now! Hope is in speed!" --Gandalf
1N/A */
1N/A
1N/Aint
1N/APerl_runops_standard(pTHX)
1N/A{
1N/A while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
1N/A PERL_ASYNC_CHECK();
1N/A }
1N/A
1N/A TAINT_NOT;
1N/A return 0;
1N/A}
1N/A