浏览代码

tap: flush STDOUT on newline

This makes it easier to follow what is going on.

Signed-off-by: Paolo Bonzini <pbonzini@redhat.com>
Paolo Bonzini 6 年之前
父节点
当前提交
2a11ee1019
共有 2 个文件被更改,包括 2 次插入0 次删除
  1. 1 0
      scripts/tap-driver.pl
  2. 1 0
      scripts/tap-merge.pl

+ 1 - 0
scripts/tap-driver.pl

@@ -313,6 +313,7 @@ sub main ()
   my $iterator = TAP::Parser::Iterator::Stream->new(\*STDIN);
   my $iterator = TAP::Parser::Iterator::Stream->new(\*STDIN);
   my $parser = TAP::Parser->new ({iterator => $iterator });
   my $parser = TAP::Parser->new ({iterator => $iterator });
 
 
+  STDOUT->autoflush(1);
   while (defined (my $cur = $parser->next))
   while (defined (my $cur = $parser->next))
     {
     {
       # Parsing of TAP input should stop after a "Bail out!" directive.
       # Parsing of TAP input should stop after a "Bail out!" directive.

+ 1 - 0
scripts/tap-merge.pl

@@ -53,6 +53,7 @@ sub main ()
   my $testno = 0;     # Number of test results seen so far.
   my $testno = 0;     # Number of test results seen so far.
   my $bailed_out = 0; # Whether a "Bail out!" directive has been seen.
   my $bailed_out = 0; # Whether a "Bail out!" directive has been seen.
 
 
+  STDOUT->autoflush(1);
   while (defined (my $cur = $parser->next))
   while (defined (my $cur = $parser->next))
     {
     {
       if ($cur->is_bailout)
       if ($cur->is_bailout)