ktest.pl: Turn off buffering to the log file

rostedt · rostedt · commit eefb9d2b8c6a · 2020-07-01T15:29:06.000-04:00
The log file should be up to date to whatever is happening in ktest.
Disable buffering to the LOG output file handle.

Signed-off-by: Steven Rostedt (VMware) &lt;rostedt@goodmis.org&gt;
diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl
@@ -11,6 +11,7 @@
 use File::Copy qw(cp);
 use FileHandle;
 use FindBin;
+use IO::Handle;
 
 my $VERSION = "0.2";
 
@@ -4091,6 +4092,7 @@ sub make_warnings_file {
 	unlink $opt{"LOG_FILE"};
     }
     open(LOG, ">> $opt{LOG_FILE}") or die "Can't write to $opt{LOG_FILE}";
+    LOG->autoflush(1);
 }
 
 doprint "\n\nSTARTING AUTOMATED TESTS\n\n";

Original file line number	Diff line number	Diff line change
`@@ -11,6 +11,7 @@`
`11`	`11`	`use File::Copy qw(cp);`
`12`	`12`	`use FileHandle;`
`13`	`13`	`use FindBin;`
	`14`	`+use IO::Handle;`
`14`	`15`
`15`	`16`	`my $VERSION = "0.2";`
`16`	`17`
`@@ -4091,6 +4092,7 @@ sub make_warnings_file {`
`4091`	`4092`	`unlink $opt{"LOG_FILE"};`
`4092`	`4093`	`}`
`4093`	`4094`	`open(LOG, ">> $opt{LOG_FILE}") or die "Can't write to $opt{LOG_FILE}";`
	`4095`	`+ LOG->autoflush(1);`
`4094`	`4096`	`}`
`4095`	`4097`
`4096`	`4098`	`doprint "\n\nSTARTING AUTOMATED TESTS\n\n";`