tap: flush STDOUT on newline

This makes it easier to follow what is going on.

Signed-off-by: Paolo Bonzini <pbonzini@redhat.com>

diff --git a/scripts/tap-driver.pl b/scripts/tap-driver.pl
index 5e59b5db49c3d54fd0d342969f54eb448425921d..6621a5cd6715f76820b19224b376fcd66dfbf165 100755 (executable)
--- a/scripts/tap-driver.pl
+++ b/scripts/tap-driver.pl
@@ -313,6 +313,7 @@ sub main ()
   my $iterator = TAP::Parser::Iterator::Stream->new(\*STDIN);
   my $parser = TAP::Parser->new ({iterator => $iterator });
 
+  STDOUT->autoflush(1);
   while (defined (my $cur = $parser->next))
     {
       # Parsing of TAP input should stop after a "Bail out!" directive.

diff --git a/scripts/tap-merge.pl b/scripts/tap-merge.pl
index 59e3fa5007c09606fd63acd46fd13251c892cf91..10ccf57bb2eb1e08d94b5e61300287fdfd872a9c 100755 (executable)
--- a/scripts/tap-merge.pl
+++ b/scripts/tap-merge.pl
@@ -53,6 +53,7 @@ sub main ()
   my $testno = 0;     # Number of test results seen so far.
   my $bailed_out = 0; # Whether a "Bail out!" directive has been seen.
 
+  STDOUT->autoflush(1);
   while (defined (my $cur = $parser->next))
     {
       if ($cur->is_bailout)