X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9522b4e1c44d0ac3dc7aafe54357b0b07c9c87cd..5c72da9e7a22dd36d3b231e4ab72578fa7c44860:/index.plp diff --git a/index.plp b/index.plp index 53cec89..1bb2d7b 100644 --- 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// and $date .= ''; print "

Last update: $date $subject

\n";