diff options
| author | Eric Wong <e@80x24.org> | 2022-09-10 08:17:18 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2022-09-10 19:50:47 +0000 |
| commit | f32456e0d0f4a7756fcc17c83ccf5b682cb512d9 (patch) | |
| tree | fee389d9d8a3830717834bba46860b22ed449756 /lib/PublicInbox/WwwAtomStream.pm | |
| parent | 3b3ee0a9d98e338c94d8ec90191bbe76faba0d87 (diff) | |
| download | public-inbox-f32456e0d0f4a7756fcc17c83ccf5b682cb512d9.tar.gz | |
This allows us to focus string concatenations in one place to allow Perl internal scratchpad optimizations to reuse memory. Calling Compress::Raw::Zlib::deflate repeatedly proves too expensive in terms of CPU cycles.
Diffstat (limited to 'lib/PublicInbox/WwwAtomStream.pm')
| -rw-r--r-- | lib/PublicInbox/WwwAtomStream.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/WwwAtomStream.pm b/lib/PublicInbox/WwwAtomStream.pm index cdfbf393..1c7ae881 100644 --- a/lib/PublicInbox/WwwAtomStream.pm +++ b/lib/PublicInbox/WwwAtomStream.pm @@ -146,7 +146,7 @@ sub feed_entry { my $name = ascii_html(join(', ', PublicInbox::Address::names($from))); $email = ascii_html($email // $ctx->{ibx}->{-primary_address}); - $ctx->zmore( + $ctx->zadd( (delete($ctx->{emit_header}) ? atom_header($ctx, $title) : ''). "<entry><author><name>$name</name><email>$email</email>" . "</author>$title$updated" . |