HTTP/2 302 server: nginx date: Mon, 28 Jul 2025 23:39:50 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.485403, exclusion.robots;dur=0.017500, exclusion.robots.policy;dur=0.007056, esindex;dur=0.012083, cdx.remote;dur=60.828034, LoadShardBlock;dur=217.331875, PetaboxLoader3.datanode;dur=100.711612, PetaboxLoader3.resolve;dur=80.924569 x-app-server: wwwb-app224 x-ts: 302 x-tr: 306 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: SERVER=wwwb-app224; 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:51 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.716113, exclusion.robots;dur=0.029078, exclusion.robots.policy;dur=0.012616, esindex;dur=0.015344, cdx.remote;dur=80.702031, LoadShardBlock;dur=97.668691, PetaboxLoader3.datanode;dur=115.769841, load_resource;dur=338.464426, PetaboxLoader3.resolve;dur=293.022864 x-app-server: wwwb-app224 x-ts: 200 x-tr: 629 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=() This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5

https://perl5.git.perl.org / perl5.git / blame

commit grep author committer pickaxe ^? search: re

summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD

update the links to freenode

[perl5.git] / 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	*/

Unnamed repository; edit this file 'description' to name the repository.

RSS Atom