diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl index 4c031d224c1a489afa0408d03a1e2bf0636ff194..fc20600ccb99d9023929b5d726eabaf65607c489 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";