use POSIX qw(strftime);
use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
use URI::Escape qw(uri_escape_utf8);
-use Encode qw(find_encoding);
-my $enc_utf8 = find_encoding('UTF-8');
use constant {
r501 => '501 command syntax error',
r221 => '221 Header follows',
sub res ($$) {
my ($self, $line) = @_;
- $line = $enc_utf8->encode($line);
+ utf8::encode($line);
do_write($self, $line . "\r\n");
}
sub do_more ($$) {
my ($self, $data) = @_;
- $data = $enc_utf8->encode($data);
+ utf8::encode($data);
if (MSG_MORE && !$self->{write_buf_size}) {
my $n = send($self->{sock}, $data, MSG_MORE);
if (defined $n) {
use Date::Parse qw/str2time/;
use PublicInbox::MID qw/mid_clean/;
use PublicInbox::Address;
-use Encode qw/find_encoding/;
-my $enc_utf8 = find_encoding('UTF-8');
our $PFX2TERM_RE = undef;
use constant EPOCH_822 => 'Thu, 01 Jan 1970 00:00:00 +0000';
use POSIX qw(strftime);
my ($class, $doc) = @_;
my $data = $doc->get_data;
my $ts = get_val($doc, &PublicInbox::Search::TS);
- $data = $enc_utf8->decode($data);
+ utf8::decode($data);
my ($subj, $from, $refs, $to, $cc) = split(/\n/, $data);
bless {
doc => $doc,
use warnings;
use URI::Escape qw/uri_escape_utf8/;
use Date::Parse qw/str2time/;
-use Encode qw/find_encoding/;
use Encode::MIME::Header;
use PublicInbox::Hval qw/ascii_html/;
use PublicInbox::Linkify;