| CARVIEW |
Select Language
HTTP/2 302
server: nginx
date: Wed, 30 Jul 2025 01:25:29 GMT
content-type: text/plain; charset=utf-8
content-length: 0
x-archive-redirect-reason: found capture at 20210116124221
location: https://web.archive.org/web/20210116124221/https://perl5.git.perl.org/perl5.git/blame/HEAD:/run.c
server-timing: captures_list;dur=0.365840, exclusion.robots;dur=0.012854, exclusion.robots.policy;dur=0.005905, esindex;dur=0.006633, cdx.remote;dur=241.121156, LoadShardBlock;dur=693.409201, PetaboxLoader3.resolve;dur=408.984678, PetaboxLoader3.datanode;dur=189.937245
x-app-server: wwwb-app210
x-ts: 302
x-tr: 962
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
set-cookie: SERVER=wwwb-app210; 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: Wed, 30 Jul 2025 01:25:30 GMT
content-type: application/xhtml+xml; charset=utf-8
x-archive-orig-date: Sat, 16 Jan 2021 12:42:19 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: 19721
x-archive-guessed-content-type: text/html
x-archive-guessed-charset: iso-8859-1
memento-datetime: Sat, 16 Jan 2021 12:42:21 GMT
link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 16 Jan 2021 12:42:21 GMT", ; rel="memento"; datetime="Sat, 16 Jan 2021 12:42:21 GMT", ; rel="last memento"; datetime="Sat, 16 Jan 2021 12:42:21 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-1610703506640.22-0024/CC-MAIN-20210116104719-20210116134719-00496.warc.gz
server-timing: captures_list;dur=0.748122, exclusion.robots;dur=0.028661, exclusion.robots.policy;dur=0.013068, esindex;dur=0.015557, cdx.remote;dur=153.255967, LoadShardBlock;dur=246.984504, PetaboxLoader3.resolve;dur=157.581272, PetaboxLoader3.datanode;dur=90.275507, load_resource;dur=92.235647
x-app-server: wwwb-app210
x-ts: 200
x-tr: 590
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1
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/blame - run.c
| Commit | Line | Data |
|---|---|---|
| a0d0e21e LW |
1 | /* run.c |
| 2 | * | |
| 4bb101f2 | 3 | * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
| 54ca4ee7 | 4 | * 2000, 2001, 2004, 2005, 2006, 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 | ||
| 166f8a29 DM |
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 | |
| ddfa107c | 14 | * it's the end of the sub or program or whatever. |
| 166f8a29 DM |
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 | */ | |
| 23 | ||
| 79072805 | 24 | #include "EXTERN.h" |
| 864dbfa3 | 25 | #define PERL_IN_RUN_C |
| 79072805 LW |
26 | #include "perl.h" |
| 27 | ||
| a0d0e21e | 28 | /* |
| 4ac71550 TC |
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 | * | |
| cdad3b53 | 33 | * [p.600 of _The Lord of the Rings_, III/xi: "The PalantÃr"] |
| a0d0e21e LW |
34 | */ |
| 35 | ||
| a0d0e21e | 36 | int |
| 864dbfa3 | 37 | Perl_runops_standard(pTHX) |
| 17c3b450 | 38 | { |
| eb578fdb | 39 | OP *op = PL_op; |
| 3f6bd23a | 40 | PERL_DTRACE_PROBE_OP(op); |
| 16c91539 | 41 | while ((PL_op = op = op->op_ppaddr(aTHX))) { |
| 3f6bd23a | 42 | PERL_DTRACE_PROBE_OP(op); |
| cd39f2b6 | 43 | } |
| 47c9d59f | 44 | PERL_ASYNC_CHECK(); |
| fd18d308 CS |
45 | |
| 46 | TAINT_NOT; | |
| a0d0e21e | 47 | return 0; |
| 79072805 LW |
48 | } |
| 49 | ||
| 66610fdd | 50 | /* |
| 14d04a33 | 51 | * ex: set ts=8 sts=4 sw=4 et: |
| 37442d52 | 52 | */ |