From: Martin Mares <mj@ucw.cz>
Date: Wed, 6 Sep 2017 20:30:47 +0000 (+0200)
Subject: UCW::Configure: Flush STDOUT after logging
X-Git-Tag: v6.5.5~3
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=c53c85352cd408cd87806346cf0923c7208510ab;p=libucw.git

UCW::Configure: Flush STDOUT after logging
---

diff --git a/ucw/perl/UCW/Configure.pm b/ucw/perl/UCW/Configure.pm
index 70647a66..83b70e0d 100644
--- a/ucw/perl/UCW/Configure.pm
+++ b/ucw/perl/UCW/Configure.pm
@@ -33,14 +33,17 @@ sub DebugDump() {
 
 sub Log($) {
 	print @_;
+	STDOUT->flush;
 }
 
 sub Notice($) {
 	print @_ if $vars{"VERBOSE"};
+	STDOUT->flush;
 }
 
 sub Warn($) {
 	print "WARNING: ", @_;
+	STDOUT->flush;
 }
 
 sub Fail($) {