Subject: | IO::Tee needs BINMODE support |
You can't use "binmode" with an IO::Tee. Add the following function:
sub BINMODE {
my $self = shift;
my $ret = 1;
if (@_) {
for my $fh (@$self) { undef $ret unless binmode $fh, $_[0] }
} else {
for my $fh (@$self) { undef $ret unless binmode $fh }
}
return $ret;
}
(Note: until the module is fixed, you can always make your own IO::Tee::Binmode which ISA IO::Tee and has this function.)