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.

3 files changed, 5 insertions, 5 deletions

diff --git a/lib/PublicInbox/Filter.pm b/lib/PublicInbox/Filter.pm
index 84df0e7d..cab6aad1 100644
--- a/lib/PublicInbox/Filter.pm
+++ b/lib/PublicInbox/Filter.pm
@@ -233,7 +233,7 @@ sub replace_body {
 sub recheck_type_ok {
         my ($part) = @_;
         my $s = $part->body;
-        ((bytes::length($s) < 0x10000) &&
+        ((length($s) < 0x10000) &&
                 ($s =~ /\A([\P{XPosixPrint}\f\n\r\t]+)\z/))
 }
 
diff --git a/lib/PublicInbox/GitCatFile.pm b/lib/PublicInbox/GitCatFile.pm
index dd3f2912..48ae6734 100644
--- a/lib/PublicInbox/GitCatFile.pm
+++ b/lib/PublicInbox/GitCatFile.pm
@@ -41,7 +41,7 @@ sub cat_file {
         my ($self, $object, $sizeref) = @_;
 
         $object .= "\n";
-        my $len = bytes::length($object);
+        my $len = length($object);
 
         $self->_cat_file_begin;
         my $written = syswrite($self->{out}, $object);
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);
 }