perl 5.0 alpha 8

[the last one taken from the September '94 InfoMagic CD; a similar
style of cleanup as the previous commits was performed]

1 files changed, 10 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 5d80a700d7..19633dc50e 100644
--- 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);