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;
use IO::Handle;
# see PerlIO::via
@ -16,6 +17,7 @@ sub WRITE
{
my ($obj, $buf, $fh) = @_;
print $fh $buf;
$fh->flush;
print $copyfh $buf;
return length($buf);
}