From 2a11ee1019530a917fff43182a1ef19a0d701018 Mon Sep 17 00:00:00 2001 From: Paolo Bonzini Date: Tue, 15 Jan 2019 18:55:36 +0100 Subject: [PATCH] tap: flush STDOUT on newline This makes it easier to follow what is going on. Signed-off-by: Paolo Bonzini --- scripts/tap-driver.pl | 1 + scripts/tap-merge.pl | 1 + 2 files changed, 2 insertions(+) diff --git a/scripts/tap-driver.pl b/scripts/tap-driver.pl index 5e59b5db49..6621a5cd67 100755 --- 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 59e3fa5007..10ccf57bb2 100755 --- 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) -- 2.11.0