eleksir/slackmetarep
0
Fork 0
Code Activity

Fix truncated gzip metadata on slackware-15.0

Browse Source
This commit is contained in:
eleksir
2022-07-10 01:30:50 +03:00
parent c4cfc8b20d
commit 7576bcf989
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Slackmetarep/Metagen.pm
View File

@@ -477,15 +477,15 @@ sub __gzipData ($) {
my $databufref = shift; my $databufref = shift;
my $ret; my $ret;
my $gz = Compress::Raw::Zlib::Deflate->new ( my ($gz, $status) = Compress::Raw::Zlib::Deflate->new (
-Level => Z_BEST_COMPRESSION, -Level => Z_BEST_COMPRESSION,
-CRC32 => 1, -WindowBits => WANT_GZIP,
-ADLER32=> 1, -AppendOutput => 1,
-WindowBits => WANT_GZIP
); );
unless (defined $gz) {
my $msg = 'Unable to create gz object'; if ($status != Z_OK) {
my $msg = "Unable to create gz object: $status";
carp "[FATA] $msg"; carp "[FATA] $msg";
$ret->{error} = $msg; $ret->{error} = $msg;
return $ret; return $ret;