-# Copyright (C) 2020 all contributors <meta@public-inbox.org>
+# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
# TODO: reduce duplication from PublicInbox::NNTPdeflate
use 5.010_001;
use base qw(PublicInbox::IMAP);
use Compress::Raw::Zlib;
-use Hash::Util qw(unlock_hash); # dependency of fields for perl 5.10+, anyways
my %IN_OPT = (
-Bufsize => 1024,
$self->write(\"$tag BAD failed to activate compression\r\n");
return;
}
- unlock_hash(%$self);
$self->write(\"$tag OK DEFLATE active\r\n");
bless $self, $class;
$self->{zin} = $in;