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;
|
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);
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user