Fix error handling of gzclose

diff --git a/bin/create_index_pages b/bin/create_index_pages
index aa40f3c0702f49f9719c8c6b7f9f4b783a63a664..2d6e47285b7d0145e950a656addbc7c1a6fabec9 100755 (executable)
--- 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( "../" );
 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: $!";
        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: $!";