UCW::Configure: Flush STDOUT after logging

[libucw.git] / ucw / perl / UCW / Configure.pm

diff --git a/ucw/perl/UCW/Configure.pm b/ucw/perl/UCW/Configure.pm
index 70647a664bda51441d58cd057d4f3f27d56c0a27..83b70e0d8fe722863b84979221b934d2ecedef85 100644 (file)
--- 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($) {