]> Sergey Matveev's repositories - public-inbox.git/blobdiff - lib/PublicInbox/WwwAtomStream.pm
www: use PerlIO::scalar (zfh) for buffering
[public-inbox.git] / lib / PublicInbox / WwwAtomStream.pm
index 1c7ae881018773ef91feaab9c37c54769f59a908..33da32443c0f941cb01ce6de07a625b03d176097 100644 (file)
@@ -146,15 +146,15 @@ sub feed_entry {
        my $name = ascii_html(join(', ', PublicInbox::Address::names($from)));
        $email = ascii_html($email // $ctx->{ibx}->{-primary_address});
 
-       $ctx->zadd(
-               (delete($ctx->{emit_header}) ? atom_header($ctx, $title) : '').
+       print { $ctx->zfh }
+               (delete($ctx->{emit_header}) ? atom_header($ctx, $title) : ''),
                "<entry><author><name>$name</name><email>$email</email>" .
                "</author>$title$updated" .
-               qq(<link\nhref="$href"/>).
+               qq(<link\nhref="$href"/>) .
                "<id>$uuid</id>$irt" .
                qq{<content\ntype="xhtml">} .
                qq{<div\nxmlns="http://www.w3.org/1999/xhtml">} .
-               qq(<pre\nstyle="white-space:pre-wrap">));
+               qq(<pre\nstyle="white-space:pre-wrap">);
        $ctx->{mhref} = $href;
        $ctx->{changed_href} = "${href}#related";
        $eml->each_part(\&PublicInbox::View::add_text_body, $ctx, 1);