process_pipe: BINMODE: pass LAYER argument

We'll end up using this to handle `:utf8', probably.

diff --git a/lib/PublicInbox/ProcessPipe.pm b/lib/PublicInbox/ProcessPipe.pm
index 1bc792c4bada77676916b10f330e87d1c0d9b98f..bbba75a2255661d6ee22cf8b9f90754d7b92602d 100644 (file)
--- 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) }