www_coderepo: implement /$CODE_REPO/atom/ endpoint

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

diff --git a/lib/PublicInbox/GzipFilter.pm b/lib/PublicInbox/GzipFilter.pm
index bd72afff7782057ded6269862eca462519d19559..a11ba73fa5b13ae5c680f9664f0f382a11466022 100644 (file)
--- a/lib/PublicInbox/GzipFilter.pm
+++ b/lib/PublicInbox/GzipFilter.pm
@@ -123,8 +123,9 @@ sub http_out ($) {
 }
 
 sub write {
+       my $self = shift;
        # my $ret = bytes::length($_[1]); # XXX does anybody care?
-       http_out($_[0])->write(translate(@_));
+       http_out($self)->write($self->translate(@_));
 }
 
 sub zfh {
@@ -166,7 +167,7 @@ sub zflush ($;@) {
 sub close {
        my ($self) = @_;
        my $http_out = http_out($self) // return;
-       $http_out->write(zflush($self));
+       $http_out->write($self->zflush);
        (delete($self->{http_out}) // return)->close;
 }