From a137e8448578bcf80d026e6ee0c414fe23248366 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 10 Sep 2022 08:17:25 +0000 Subject: gzip_filter: write: use multi-arg translate While we must name this function ->write for PSGI compatibility, our own uses of it can make it operate more like writev(2) or `print' in Perl. --- lib/PublicInbox/GzipFilter.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/PublicInbox/GzipFilter.pm') diff --git a/lib/PublicInbox/GzipFilter.pm b/lib/PublicInbox/GzipFilter.pm index 72ab5d50..bd72afff 100644 --- a/lib/PublicInbox/GzipFilter.pm +++ b/lib/PublicInbox/GzipFilter.pm @@ -124,7 +124,7 @@ sub http_out ($) { sub write { # my $ret = bytes::length($_[1]); # XXX does anybody care? - http_out($_[0])->write(translate($_[0], $_[1])); + http_out($_[0])->write(translate(@_)); } sub zfh { -- cgit v1.2.3-24-ge0c7