diff options
-rw-r--r-- | lib/PublicInbox/HTTP.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/PublicInbox/HTTP.pm b/lib/PublicInbox/HTTP.pm index bc10814e..9657b31a 100644 --- a/lib/PublicInbox/HTTP.pm +++ b/lib/PublicInbox/HTTP.pm @@ -318,11 +318,9 @@ sub more ($$) { if (defined $n) { my $nlen = length($_[1]) - $n; return 1 if $nlen == 0; # all done! - eval { $_[1] = substr($_[1], $n, $nlen) }; - if ($@) { # modification of read-only value: - return $self->write(substr($_[1], $n, $nlen)); - } - # fall through to normal write: + + # Danga::Socket::write queues the unwritten substring: + return $self->write(substr($_[1], $n, $nlen)); } } $self->write($_[1]); |