This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change run to runops
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Thu, 29 Feb 1996 03:30:27 +0000 (03:30 +0000)
committerCharles Bailey <bailey@genetics.upenn.edu>
Thu, 29 Feb 1996 03:30:27 +0000 (03:30 +0000)
op.c
proto.h
run.c

diff --git a/op.c b/op.c
index 5207820..b61d387 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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;