diff options
author | Eric Wong <e@80x24.org> | 2019-06-10 02:39:24 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-06-10 05:05:15 +0000 |
commit | a68d7b5b57fd045e17188ab743905564afbd9b05 (patch) | |
tree | 3def8aeb892428d8e704fa2c9d0829789f181532 /lib/PublicInbox/DS.pm | |
parent | 03ddcf8dd905fc5874115ebb30e7cb6e9bd75a3e (diff) | |
download | public-inbox-a68d7b5b57fd045e17188ab743905564afbd9b05.tar.gz |
Since we stop using it in NNTP, we don't need it at all.
Diffstat (limited to 'lib/PublicInbox/DS.pm')
-rw-r--r-- | lib/PublicInbox/DS.pm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/lib/PublicInbox/DS.pm b/lib/PublicInbox/DS.pm index 5177d1f1..78ea7227 100644 --- a/lib/PublicInbox/DS.pm +++ b/lib/PublicInbox/DS.pm @@ -663,36 +663,6 @@ sub on_incomplete_write { $self->watch_write(1); } -=head2 C<< $obj->read( $bytecount ) >> - -Read at most I<bytecount> bytes from the underlying handle; returns scalar -ref on read, or undef on connection closed. - -=cut -sub read { - my PublicInbox::DS $self = shift; - return if $self->{closed}; - my $bytes = shift; - my $buf; - my $sock = $self->{sock}; - - # if this is too high, perl quits(!!). reports on mailing lists - # don't seem to point to a universal answer. 5MB worked for some, - # crashed for others. 1MB works for more people. let's go with 1MB - # for now. :/ - my $req_bytes = $bytes > 1048576 ? 1048576 : $bytes; - - my $res = sysread($sock, $buf, $req_bytes, 0); - DebugLevel >= 2 && $self->debugmsg("sysread = %d; \$! = %d", $res, $!); - - if (! $res && $! != EAGAIN) { - # catches 0=conn closed or undef=error - return undef; - } - - return \$buf; -} - =head2 (VIRTUAL) C<< $obj->event_read() >> Readable event handler. Concrete deriviatives of PublicInbox::DS should |