diff options
| author | Marko Mäkelä <marko.makela@mariadb.com> | 2018-03-13 08:15:06 +0200 |
|---|---|---|
| committer | Marko Mäkelä <marko.makela@mariadb.com> | 2018-03-13 08:15:06 +0200 |
| commit | 7fb03d7abf4e668d76aded38378120361c218ba4 (patch) | |
| tree | ab6a8f7d29479970e5d3b48b0d671d1dc07c166e /mysql-test/lib/My | |
| parent | 09c5c335e3e8447e7d07c987293042175b51b495 (diff) | |
| parent | 1c4b6afbaaf7dbcee4b035d1bf79156fa68a6475 (diff) | |
| download | mariadb-git-7fb03d7abf4e668d76aded38378120361c218ba4.tar.gz | |
Merge bb-10.2-ext into 10.3
Diffstat (limited to 'mysql-test/lib/My')
| -rw-r--r-- | mysql-test/lib/My/Tee.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mysql-test/lib/My/Tee.pm b/mysql-test/lib/My/Tee.pm index ee82e6f45ae..5985fe33739 100644 --- a/mysql-test/lib/My/Tee.pm +++ b/mysql-test/lib/My/Tee.pm @@ -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); } |