| CARVIEW |
Select Language
HTTP/2 302
server: nginx
date: Mon, 28 Jul 2025 23:39:00 GMT
content-type: text/plain; charset=utf-8
content-length: 0
x-archive-redirect-reason: found capture at 20210123231550
location: https://web.archive.org/web/20210123231550/https://perl5.git.perl.org/perl5.git/blob/HEAD:/run.c
server-timing: captures_list;dur=0.473220, exclusion.robots;dur=0.017759, exclusion.robots.policy;dur=0.008690, esindex;dur=0.009419, cdx.remote;dur=55.086555, LoadShardBlock;dur=619.855566, PetaboxLoader3.datanode;dur=132.227952, PetaboxLoader3.resolve;dur=191.739772
x-app-server: wwwb-app204
x-ts: 302
x-tr: 701
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1
set-cookie: SERVER=wwwb-app204; path=/
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
HTTP/2 200
server: nginx
date: Mon, 28 Jul 2025 23:39:01 GMT
content-type: application/xhtml+xml; charset=utf-8
x-archive-orig-date: Sat, 23 Jan 2021 23:15:50 GMT
x-archive-orig-server: Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips
x-archive-orig-keep-alive: timeout=5, max=100
x-archive-orig-connection: Keep-Alive
x-archive-orig-x-crawler-transfer-encoding: chunked
x-archive-orig-content-length: 11951
x-archive-guessed-content-type: text/html
x-archive-guessed-charset: iso-8859-1
memento-datetime: Sat, 23 Jan 2021 23:15:50 GMT
link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 23 Jan 2021 23:15:50 GMT", ; rel="memento"; datetime="Sat, 23 Jan 2021 23:15:50 GMT", ; rel="last memento"; datetime="Sat, 23 Jan 2021 23:15:50 GMT"
content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org
x-archive-src: CC-MAIN-2021-04-1610703538741.56-0010/CC-MAIN-20210123222657-20210124012657-00212.warc.gz
server-timing: captures_list;dur=0.769191, exclusion.robots;dur=0.026003, exclusion.robots.policy;dur=0.011916, esindex;dur=0.015005, cdx.remote;dur=134.815188, LoadShardBlock;dur=118.361535, PetaboxLoader3.datanode;dur=82.177767, PetaboxLoader3.resolve;dur=124.124495, load_resource;dur=131.468912
x-app-server: wwwb-app204
x-ts: 200
x-tr: 461
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
perl5.git.perl.org Git - perl5.git/blob - run.c
1 /* run.c
2 *
3 * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4 * 2000, 2001, 2004, 2005, 2006, 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 */
11 /* This file contains the main Perl opcode execution loop. It just
12 * calls the pp_foo() function associated with each op, and expects that
13 * function to return a pointer to the next op to be executed, or null if
14 * it's the end of the sub or program or whatever.
15 *
16 * There is a similar loop in dump.c, Perl_runops_debug(), which does
17 * the same, but also checks for various debug flags each time round the
18 * loop.
19 *
20 * Why this function requires a file all of its own is anybody's guess.
21 * DAPM.
22 */
24 #include "EXTERN.h"
25 #define PERL_IN_RUN_C
26 #include "perl.h"
28 /*
29 * 'Away now, Shadowfax! Run, greatheart, run as you have never run before!
30 * Now we are come to the lands where you were foaled, and every stone you
31 * know. Run now! Hope is in speed!' --Gandalf
32 *
33 * [p.600 of _The Lord of the Rings_, III/xi: "The PalantÃr"]
34 */
36 int
37 Perl_runops_standard(pTHX)
38 {
39 OP *op = PL_op;
40 PERL_DTRACE_PROBE_OP(op);
41 while ((PL_op = op = op->op_ppaddr(aTHX))) {
42 PERL_DTRACE_PROBE_OP(op);
43 }
44 PERL_ASYNC_CHECK();
46 TAINT_NOT;
47 return 0;
48 }
50 /*
51 * ex: set ts=8 sts=4 sw=4 et:
52 */