- my ($gz, $err) = Compress::Raw::Zlib::Deflate->new(%OPT);
- $err == Z_OK ? $gz : undef;
+ push @$res_hdr, @GZIP_HDRS;
+ $gz;
+}
+
+sub gzf_maybe ($$) {
+ my ($res_hdr, $env) = @_;
+ my $gz = gzip_maybe($res_hdr, $env) or return 0;
+ bless { gz => $gz }, __PACKAGE__;