From: HADES DAQ <hadaq@gsi.de>
Date: Mon, 19 Mar 2018 21:46:55 +0000 (+0100)
Subject: fixed buffering bug, mt
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=8133cde38565ecbe1cc20e88170896346656d364;p=hadesdaq.git

fixed buffering bug, mt
---

diff --git a/main/startup.pl b/main/startup.pl
index 3a54183..57e65b1 100755
--- 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)