index: silence git read warning

[sheet.git] / index.plp

diff --git a/index.plp b/index.plp
index 42ff2514cfd8cf980d8bd42c07892763d07ae9ee..1bb2d7bf7e3cdec4ca03a78cfb8947c79d2f442c 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -25,7 +25,8 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 <:
 my @format = ('--date=short', "--pretty=%ad (%ar)\t%s");
 if (open my $log, '-|', git => 'log', -1, @format) {{
-       my $line = readline $log or next;
+       my $line = readline $log;
+       $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";
@@ -52,7 +53,7 @@ if (open my $log, '-|', git => 'log', -1, @format) {{
 <li><a href="/charset">charsets</a>
 <li><a href="/unicode">common glyphs</a>
 <li><a href="/digraphs">digraphs</a>
-<li><a href="/writing">script comparison</a>
+<li><a href="/writing">alphabet comparison</a>
 <li><a href="/font">font coverage</a>
 </ul>
 </div>
@@ -63,6 +64,7 @@ if (open my $log, '-|', git => 'log', -1, @format) {{
 <li><a href="/browser">browser support</a>
 <li><a href="/countries">country codes</a>
 <li><a href="/perl">perl versions</a>
+<li><a href="/apl">apl symbols</a>
 <li><a href="/termcol">terminal colours</a>
 <li><a href="/sc">starcraft units</a>
 <li><a href="/emoji">emoticons</a>