mtr: force-flush stderr and stdout
prevents buffering in cases like ./mtr | tee log
This commit is contained in:
parent
a04e4f531a
commit
e49c1d1cef
@ -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);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user