From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Thu, 2 Mar 2006 00:00:44 +0000 (+0000)
Subject: Fix error handling of gzclose
X-Git-Tag: switch-to-templates~24
X-Git-Url: https://git.deb.at/w?a=commitdiff_plain;h=99974af07fe1aadba839a7216ebcbf3528cb1e00;p=deb%2Fpackages.git

Fix error handling of gzclose
---

diff --git a/bin/create_index_pages b/bin/create_index_pages
index aa40f3c..2d6e472 100755
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -228,7 +228,7 @@ print "closing files ...\n";
 foreach my $s (@SUITES) {
     my $key = $s;
     print {$pages{$key}{fh}} '</dl>', trailer( "../" );
-    $pages{$key}{textgz}->gzclose or
+    ($pages{$key}{textgz}->gzclose == Z_OK) or
 	warn "can't close text index file $wwwdir/$key/allpackages.en.txt.gz.new: ".$pages{$key}{textgz}->gzerror;
     close $pages{$key}{fh} or
 	warn "can't close index file $wwwdir/$key/allpackages.en.html.new: $!";