my $dir = $ENV{NAODASH_CACHE} || catdir tmpdir, 'naodash';
mkdir $dir or die "Cannot create cache directory: $!\n" unless -d $dir;
my $file = catfile $dir, $name;
- write_file $file, _get_xlog_from_server $name unless -f $file && time - (stat $file)[9] < 86400;
+ write_file $file, _get_xlog_from_server $name if ! -f $file || time - (stat $file)[9] >= 86_400;
scalar read_file $file
}