if (! keys %time_cache) {
my $date;
foreach my $line (run_or_die('git', 'log',
if (! keys %time_cache) {
my $date;
foreach my $line (run_or_die('git', 'log',
'--name-only', '--relative')) {
if (! defined $date && $line =~ /^(\d+)$/) {
$date=$line;
'--name-only', '--relative')) {
if (! defined $date && $line =~ /^(\d+)$/) {
$date=$line;