font: determine source os to better explain distribution

[sheet.git] / index.plp

diff --git a/index.plp b/index.plp
index 53cec8954b6d1db8b3626ff9d8fc56c77cac3529..8baf9017d1722a3685432d0975ac7308e8940425 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -9,7 +9,6 @@ Html({
        keywords => [qw'
                sheet cheat reference software overview summary help keyboard map unicode
        '],
-       stylesheet => [qw'light dark red'],
 });
 
 :>
@@ -25,7 +24,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";