git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perl: final features for v5.22 release
[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
'],
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 @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";
my ($date, $subject) = split /[\t\n]/, $line;
$date =~ s/ \K/<small>/ and $date .= '</small>';
print "<p><strong>Last update</strong>: $date $subject</p>\n";