Commit | Line | Data |
---|---|---|
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 | 21 | int |
864dbfa3 | 22 | Perl_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 |