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