Re-introduce the changes from change 68 (runops becomes a

[perl5.git] / run.c

diff --git a/run.c b/run.c
index 2f8d8fa..1e1001d 100644 (file)
--- a/run.c
+++ b/run.c
@@ -19,10 +19,8 @@
 dEXT char **watchaddr = 0;
 dEXT char *watchok;
 
-#ifndef DEBUGGING
-
 int
-runops() {
+runops_standard() {
     dTHR;
     SAVEI32(runlevel);
     runlevel++;
@@ -33,12 +31,11 @@ runops() {
     return 0;
 }
 
-#else
-
+#ifdef DEBUGGING
 static void debprof _((OP*o));
 
 int
-runops() {
+runops_debug() {
     dTHR;
     if (!op) {
        warn("NULL OP IN RUN");