fixed buffering bug, mt

diff --git a/main/startup.pl b/main/startup.pl
index 3a54183c4860473078d6f598966b30633cffb829..57e65b1b532f522a2e286b6aec611766b541e7b5 100755 (executable)
--- a/main/startup.pl
+++ b/main/startup.pl
@@ -21,6 +21,10 @@ use List::MoreUtils qw(any apply);
 use IO::Socket;
 use IO::Select;
 
+use IO::Handle;
+
+stdout->autoflush(1);
+
 use threads;
 use threads::shared;
 
@@ -1549,6 +1553,7 @@ sub promptUser {
    } else {
       print $promptString, ": ";
    }
+   print "\n";
 
    $| = 1;               # force a flush after our print
    my $input = <STDIN>;  # get the input from STDIN (presumably the keyboard)