X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fcreate_index_pages;h=2d6e47285b7d0145e950a656addbc7c1a6fabec9;hb=06c6f30bfc4f55cecc7485fef0f0a227e32b44f0;hp=aa40f3c0702f49f9719c8c6b7f9f4b783a63a664;hpb=01393b020237bbfa4571d41cc98899b4d25acd8b;p=deb%2Fpackages.git

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: $!";