diff options
| author | Jacob Mathew <jacob.mathew@mariadb.com> | 2018-03-13 16:15:37 -0700 |
|---|---|---|
| committer | Jacob Mathew <jacob.mathew@mariadb.com> | 2018-03-13 16:15:37 -0700 |
| commit | 1b82bec3c9ade9864dc9483e99d7b527ebff6bf1 (patch) | |
| tree | 0f7cadc18142819248138802f73e4e0e638c8026 /mysql-test/lib/My/Tee.pm | |
| parent | 90247658e066c3ae5da1fefb988f5564e24abc90 (diff) | |
| parent | 9d95b8665a3d87ab857e77e220effc64454eb881 (diff) | |
| download | mariadb-git-bb-10.2-MDEV-14019.tar.gz | |
Merge branch '10.2' into bb-10.2-MDEV-14019bb-10.2-MDEV-14019
Diffstat (limited to 'mysql-test/lib/My/Tee.pm')
| -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); } |