From 7576bcf98906cd003ff0aaf023f554168f6ae70c Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sun, 10 Jul 2022 01:30:50 +0300
Subject: [PATCH] Fix truncated gzip metadata on slackware-15.0

---
 Slackmetarep/Metagen.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Slackmetarep/Metagen.pm b/Slackmetarep/Metagen.pm
index 8215366..1dca658 100644
--- a/Slackmetarep/Metagen.pm
+++ b/Slackmetarep/Metagen.pm
@@ -477,15 +477,15 @@ sub __gzipData ($) {
 	my $databufref = shift;
 	my $ret;
 
-	my $gz = Compress::Raw::Zlib::Deflate->new (
+	my ($gz, $status) = Compress::Raw::Zlib::Deflate->new (
 		-Level => Z_BEST_COMPRESSION,
-		-CRC32 => 1,
-		-ADLER32=> 1,
-		-WindowBits => WANT_GZIP
+		-WindowBits => WANT_GZIP,
+		-AppendOutput => 1,
 	);
 
-	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";
 		$ret->{error} = $msg;
 		return $ret;