);
# global deflate context and buffer
-my $zbuf = \(my $buf = '');
-my $zout;
+my ($zout, $zbuf);
{
my $err;
+ $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
my ($class, $self) = @_;
my ($in, $err) = Compress::Raw::Zlib::Inflate->new(%IN_OPT);
if ($err != Z_OK) {
- $self->err("Inflate->new failed: $err");
+ warn("Inflate->new failed: $err\n");
return;
}
bless $self, $class;
1;
}
-sub zflush ($) {
+sub dflush ($) {
my ($self) = @_;
my $deflated = $zbuf;