www: gzip_filter: avoid errors after ->write failure

[public-inbox.git] / lib / PublicInbox / GzipFilter.pm

diff --git a/lib/PublicInbox/GzipFilter.pm b/lib/PublicInbox/GzipFilter.pm
index d41748c4de0878d2be4c392726ee1fab2beff239..bdd313f5a799c5f003adb61ea205219d85b60281 100644 (file)
--- a/lib/PublicInbox/GzipFilter.pm
+++ b/lib/PublicInbox/GzipFilter.pm
@@ -154,7 +154,7 @@ sub zflush ($;$) {
                $err = $gz->deflate($_[1], $zbuf);
                die "gzip->deflate: $err" if $err != Z_OK;
        }
-       $gz // return; # not a bug, recursing on DS->write failure
+       $gz // return ''; # not a bug, recursing on DS->write failure
        $err = $gz->flush($zbuf);
        die "gzip->flush: $err" if $err != Z_OK;
        $zbuf;
@@ -164,7 +164,7 @@ sub close {
        my ($self) = @_;
        my $http_out = http_out($self) // return;
        $http_out->write(zflush($self));
-       delete($self->{http_out})->close;
+       (delete($self->{http_out}) // return)->close;
 }
 
 sub bail  {