->zflush is already for GzipFilter in PublicInbox::WWW,
while we use DEFLATE for NNTP and IMAP. This ought to
make the code easier-to-follow.
-sub zflush {} # overridden by DSdeflate
+sub dflush {} # overridden by DSdeflate
sub compressed {} # overridden by DSdeflate
sub long_response_done {} # overridden by Net::NNTP
sub compressed {} # overridden by DSdeflate
sub long_response_done {} # overridden by Net::NNTP
my ($self) = @_;
# COMPRESS users all share the same DEFLATE context.
# Flush it here to ensure clients don't see each other's data
my ($self) = @_;
# COMPRESS users all share the same DEFLATE context.
# Flush it here to ensure clients don't see each other's data
# no recursion, schedule another call ASAP,
# but only after all pending writes are done.
# no recursion, schedule another call ASAP,
# but only after all pending writes are done.
my ($zout, $zbuf);
{
my $err;
my ($zout, $zbuf);
{
my $err;
- $zbuf = \(my $initial = ''); # replaced by $next in zflush/write
+ $zbuf = \(my $initial = ''); # replaced by $next in dflush/write
($zout, $err) = Compress::Raw::Zlib::Deflate->new(
# nnrpd (INN) and Compress::Raw::Zlib favor MemLevel=9,
# the zlib C library and git use MemLevel=8 as the default
($zout, $err) = Compress::Raw::Zlib::Deflate->new(
# nnrpd (INN) and Compress::Raw::Zlib favor MemLevel=9,
# the zlib C library and git use MemLevel=8 as the default
my ($self) = @_;
my $deflated = $zbuf;
my ($self) = @_;
my $deflated = $zbuf;
\&fetch_blob_cb, $fetch_arg);
}
fetch_run_ops($self, $smsg, $bref, $ops, $partial);
\&fetch_blob_cb, $fetch_arg);
}
fetch_run_ops($self, $smsg, $bref, $ops, $partial);
- $pre ? $self->zflush : $self->requeue_once;
+ $pre ? $self->dflush : $self->requeue_once;
$self->close;
die "BUG: bad code: $r";
}
$self->close;
die "BUG: bad code: $r";
}
- $self->write(\".\r\n"); # flushes (includes ->zflush)
+ $self->write(\".\r\n"); # flushes (includes ->dflush)