about summary refs log tree commit homepage
path: root/lib/PublicInbox/HTTP.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/HTTP.pm')
-rw-r--r--lib/PublicInbox/HTTP.pm8
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]);