Create a struct for all perls globals (as an option)

Mainly for Mingw32 which cannot import data.
Now only Opcode tests fail (op_desc/op_name not 
       handled yet stuff)

p4raw-id: //depot/ansiperl@341

1 files changed, 5 insertions, 3 deletions

diff --git a/run.c b/run.c
index 6afab88dff..7922bfd1a1 100644
--- a/run.c
+++ b/run.c
@@ -16,8 +16,6 @@
  * know.  Run now!  Hope is in speed!"  --Gandalf
  */
 
-dEXT char **watchaddr = 0;
-dEXT char *watchok;
 
 int
 runops_standard(void) {
@@ -30,6 +28,10 @@ runops_standard(void) {
 }
 
 #ifdef DEBUGGING
+
+dEXT char **watchaddr = 0;
+dEXT char *watchok;
+
 static void debprof _((OP*o));
 
 int
@@ -112,5 +114,5 @@ debprofdump(void)
     }
 }
 
-#endif
+#endif /* DEBUGGING */