view: fix unclosed parentheses after `raw' link

This formatting error was accidentally introduced while
converting a `qq{}' concatenation to a `say' statement.  Re-add
the `)'.   While we're at it, switch to a `print' statement
since we use a string literal anyways and `say' would require an
extra global variable lookup at runtime.

Fixes: 18f41f5af397f903 (www: replace *eml_entry with *emit_eml, 2024-07-07)
Reported-by: Konstantin Ryabitsev <konstantin@linuxfoundation.org>
Tested-by: Konstantin Ryabitsev <konstantin@linuxfoundation.org>
Link: https://public-inbox.org/meta/20240830-crystal-active-dingo-03bfbd@lemur/

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index ce8fa86596ff1a1fabe65f4e402acebbeabc6e71..131727fc1880a5808c0975c33f36d565205bf5ec 100644 (file)
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -270,9 +270,9 @@ sub emit_eml ($$) {
        obfuscate_addrs($obfs_ibx, $from) if $obfs_ibx;
        my $upfx = $ctx->{-upfx};
        my $mhref = $upfx . mid_href($mid_raw) . '/';
-       say $zfh 'From: ', $from, ' @ ', fmt_ts($ds), qq[ UTC (<a\nhref="],
+       print $zfh 'From: ', $from, ' @ ', fmt_ts($ds), qq[ UTC (<a\nhref="],
                        $mhref, qq[">permalink</a> / <a\nhref="],
-                       $mhref, 'raw">raw</a>';
+                       $mhref, qq[raw">raw</a>)\n];
        {
                my ($to, $tlen) = to_cc_html($ctx, $eml, 'To', $t);
                my ($cc, $clen) = to_cc_html($ctx, $eml, 'Cc', $t);