1
0
mirror of https://github.com/MariaDB/server.git synced 2025-08-08 11:22:35 +03:00

mtr: force-flush stderr and stdout

prevents buffering in cases like

  ./mtr | tee log
This commit is contained in:
Sergei Golubchik
2018-02-24 09:32:50 +01:00
parent a04e4f531a
commit e49c1d1cef

View File

@@ -1,4 +1,5 @@
package My::Tee; package My::Tee;
use IO::Handle;
# see PerlIO::via # see PerlIO::via
@@ -16,6 +17,7 @@ sub WRITE
{ {
my ($obj, $buf, $fh) = @_; my ($obj, $buf, $fh) = @_;
print $fh $buf; print $fh $buf;
$fh->flush;
print $copyfh $buf; print $copyfh $buf;
return length($buf); return length($buf);
} }