From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 29 Feb 1996 03:30:27 +0000 (+0000)
Subject: Change run to runops
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8da795c62c26645b9d86cd8671cbb9c297445664;p=p5sagit%2Fp5-mst-13.2.git

Change run to runops
---

diff --git a/op.c b/op.c
index 5207820..b61d387 100644
--- a/op.c
+++ b/op.c
@@ -1378,7 +1378,7 @@ register OP *o;
     curop = LINKLIST(o);
     o->op_next = 0;
     op = curop;
-    run();
+    runops();
     sv = *(stack_sp--);
     if (o->op_targ && sv == PAD_SV(o->op_targ))	/* grab pad temp? */
 	pad_swipe(o->op_targ);
@@ -1455,7 +1455,7 @@ register OP *o;
     op = curop = LINKLIST(o);
     o->op_next = 0;
     pp_pushmark();
-    run();
+    runops();
     op = curop;
     pp_anonlist();
     tmps_floor = oldtmps_floor;
diff --git a/proto.h b/proto.h
index 4d31c07..542d566 100644
--- a/proto.h
+++ b/proto.h
@@ -338,7 +338,7 @@ char*	regnext _((char* p));
 char*	regprop _((char* op));
 void	repeatcpy _((char* to, char* from, I32 len, I32 count));
 char*	rninstr _((char* big, char* bigend, char* little, char* lend));
-int	run _((void));
+int	runops _((void));
 #ifndef safemalloc
 void	safefree _((char* where));
 char*	safemalloc _((MEM_SIZE size));
diff --git a/run.c b/run.c
index 5d2255a..7c09f8f 100644
--- a/run.c
+++ b/run.c
@@ -22,7 +22,7 @@ dEXT char *watchok;
 #ifndef DEBUGGING
 
 int
-run() {
+runops() {
     SAVEI32(runlevel);
     runlevel++;
 
@@ -35,7 +35,7 @@ run() {
 static void debprof _((OP*op));
 
 int
-run() {
+runops() {
     if (!op) {
 	warn("NULL OP IN RUN");
 	return 0;