$fh = IO::Compress::Gzip->new($fh,
-Level => IO::Compress::Gzip::Z_BEST_COMPRESSION(),
-TextFlag => 1,
$fh = IO::Compress::Gzip->new($fh,
-Level => IO::Compress::Gzip::Z_BEST_COMPRESSION(),
-TextFlag => 1,
my $buf = pack('C', $type);
$fh->print($buf) or throw 'Failed to write inner header type';
my $buf = pack('C', $type);
$fh->print($buf) or throw 'Failed to write inner header type';