From 8133cde38565ecbe1cc20e88170896346656d364 Mon Sep 17 00:00:00 2001
From: HADES DAQ <hadaq@gsi.de>
Date: Mon, 19 Mar 2018 22:46:55 +0100
Subject: [PATCH] fixed buffering bug, mt

---
 main/startup.pl | 5 +++++
 1 file changed, 5 insertions(+)

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)
-- 
2.43.0