Fix error handling of gzclose
authorFrank Lichtenheld <frank@lichtenheld.de>
Thu, 2 Mar 2006 00:00:44 +0000 (00:00 +0000)
committerFrank Lichtenheld <frank@lichtenheld.de>
Thu, 2 Mar 2006 00:00:44 +0000 (00:00 +0000)
bin/create_index_pages

index aa40f3c0702f49f9719c8c6b7f9f4b783a63a664..2d6e47285b7d0145e950a656addbc7c1a6fabec9 100755 (executable)
@@ -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: $!";