From eba79e3c7d8cbdfc4db4c756533aa575203915bd Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <art1@andreas-romeyke.de>
Date: Wed, 2 Sep 2020 11:03:13 +0200
Subject: [PATCH] - add autoflush() for improved UI experience

---
 perl/exit_strategy.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 4c031d2..fc20600 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -52,7 +52,8 @@ use XML::LibXML::XPathContext;
 use Getopt::Long;
 use constant DEBUG => 0; # no debug
 
-
+use IO::Handle;
+STDOUT->autoflush(1);
 # guarantee, that output will be UTF8
 binmode(STDOUT, ":encoding(UTF-8)");
 my $db_name="exit_strategy";
-- 
GitLab