remove bytes:: for length checks

Apparently, my mental model of Perl internals is still incorrect
after all these years.  I am but a simple *nix programmer:
everything is a bag of bytes to me.

This fixes a problem with UTF-8 headers from Xapian (via
"XHDR Subject [range]") triggering partial writes and writing an
extra newline to the outputs.

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm
index fb93330b..2b580d16 100644
--- a/lib/PublicInbox/NNTP.pm
+++ b/lib/PublicInbox/NNTP.pm
@@ -771,9 +771,9 @@ sub do_more ($$) {
         if (MSG_MORE && !$self->{write_buf_size}) {
                 my $n = send($self->{sock}, $data, MSG_MORE);
                 if (defined $n) {
-                        my $dlen = bytes::length($data);
+                        my $dlen = length($data);
                         return 1 if $n == $dlen; # all done!
-                        $data = bytes::substr($data, $n, $dlen - $n);
+                        $data = substr($data, $n, $dlen - $n);
                 }
         }
         $self->do_write($data);
@@ -813,7 +813,7 @@ again:
         }
 
         return $self->close if $r < 0;
-        my $len = bytes::length($self->{rbuf});
+        my $len = length($self->{rbuf});
         return $self->close if ($len >= LINE_MAX);
 }