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