From 99974af07fe1aadba839a7216ebcbf3528cb1e00 Mon Sep 17 00:00:00 2001
From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Thu, 2 Mar 2006 00:00:44 +0000
Subject: [PATCH] Fix error handling of gzclose

---
 bin/create_index_pages | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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