diff options
| author | Eric Wong <e@80x24.org> | 2023-02-27 07:18:34 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2023-02-27 10:10:18 +0000 |
| commit | 25e4319315a8c1d04730c4479d15c45c4742aa48 (patch) | |
| tree | f1e5ea33d0042df1cb2eb09c2f5fa13c247cd109 /lib/PublicInbox/ProcessPipe.pm | |
| parent | d72ad1da1947ae311f4d14c93ee1812ca576c64f (diff) | |
| download | public-inbox-25e4319315a8c1d04730c4479d15c45c4742aa48.tar.gz | |
We'll end up using this to handle `:utf8', probably.
Diffstat (limited to 'lib/PublicInbox/ProcessPipe.pm')
| -rw-r--r-- | lib/PublicInbox/ProcessPipe.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/PublicInbox/ProcessPipe.pm b/lib/PublicInbox/ProcessPipe.pm index 1bc792c4..bbba75a2 100644 --- a/lib/PublicInbox/ProcessPipe.pm +++ b/lib/PublicInbox/ProcessPipe.pm @@ -24,7 +24,11 @@ sub TIEHANDLE { $self; } -sub BINMODE { binmode(shift->{fh}) } # for IO::Uncompress::Gunzip +# for IO::Uncompress::Gunzip +sub BINMODE { + my $self = shift; + binmode($self->{fh}, @_); +} sub READ { read($_[0]->{fh}, $_[1], $_[2], $_[3] || 0) } |