perl 5.003_01: lib/File/Basename.pm

[p5sagit/p5-mst-13.2.git] / run.c

diff --git a/run.c b/run.c
index 886a2aa..7c09f8f 100644 (file)
--- a/run.c
+++ b/run.c
@@ -16,13 +16,13 @@
  * know.  Run now!  Hope is in speed!"  --Gandalf
  */
 
-char **watchaddr = 0;
-char *watchok;
+dEXT char **watchaddr = 0;
+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;