diff options
Diffstat (limited to 'lib/PublicInbox/ProcessIONBF.pm')
-rw-r--r-- | lib/PublicInbox/ProcessIONBF.pm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/lib/PublicInbox/ProcessIONBF.pm b/lib/PublicInbox/ProcessIONBF.pm deleted file mode 100644 index 490e200a..00000000 --- a/lib/PublicInbox/ProcessIONBF.pm +++ /dev/null @@ -1,25 +0,0 @@ -# Copyright (C) all contributors <meta@public-inbox.org> -# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> - -# used to support unbuffered partial reads -package PublicInbox::ProcessIONBF; -use v5.12; -use parent qw(PublicInbox::ProcessIO); -use IO::Handle; # ->blocking - -sub new { - my ($cls, $pid, $fh, @cb_arg) = @_; - $fh->blocking(0) // die "$fh->blocking(0): $!"; - my $io = $cls->SUPER::maybe_new($pid, $fh, @cb_arg); -} - -sub replace { - my ($cls, $orig) = @_; - my $pio = tied *$orig; # ProcessIO - $pio->{fh}->blocking(0) // die "$pio->{fh}->blocking(0): $!"; - bless $pio, $cls; -} - -sub READ { sysread($_[0]->{fh}, $_[1], $_[2], $_[3] // 0) } - -1; |