We'll end up using this to handle `:utf8', probably.
---
 lib/PublicInbox/ProcessPipe.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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) }
 

Reply via email to