perl 5.0 alpha 8

[perl5.git] / dump.c

diff --git a/dump.c b/dump.c
index 5d80a70..19633dc 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -24,14 +24,23 @@
 #include "EXTERN.h"
 #include "perl.h"
 
-#ifdef DEBUGGING
+#ifndef DEBUGGING
+void
+dump_all()
+{
+}
+#else  /* Rest of file is for DEBUGGING */
 
 static void dump();
 
 void
 dump_all()
 {
+#ifdef HAS_SETLINEBUF
     setlinebuf(stderr);
+#else
+    setvbuf(stderr, Nullch, _IOLBF, 0);
+#endif
     if (main_root)
        dump_op(main_root);
     dump_packsubs(defstash);