if (open my $log, '-|', git => 'log', -1, @format) {{
my $line = readline $log;
$line or next; # explicitly ignore empty input
+ EscapeHTML $line;
my ($date, $subject) = split /[\t\n]/, $line;
$date =~ s/ \K/<small>/ and $date .= '</small>';
say "<p><strong>Last update</strong>: $date $subject</p>";
<li><a href="/sc/2">starcraft 2 units</a>
(<a href="/sc" title="StarCraft: Brood War">bw</a>)
<li><a href="/emoji">emoticons</a>
+<li><a href="/dieren">dieren (Dutch animals)</a>
</ul>
</div>
</nav>