common: replace newline output by say()

[sheet.git] / index.plp

diff --git a/index.plp b/index.plp
index 01b59c4844c8837b7ed0b70672c5f1d738dcc536..f8a193876eb6ed67d4a4fc91c63579b586da5415 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -28,7 +28,7 @@ if (open my $log, '-|', git => 'log', -1, @format) {{
        $line or next;  # explicitly ignore empty input
        my ($date, $subject) = split /[\t\n]/, $line;
        $date =~ s/ \K/<small>/ and $date .= '</small>';
-       print "<p><strong>Last update</strong>: $date $subject</p>\n";
+       say "<p><strong>Last update</strong>: $date $subject</p>";
 }}
 
 :>