From 3b893b63494905975c33aa6365d1914ea7fe03dc Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 22 Aug 2015 22:41:13 +0300 Subject: [PATCH] Appease perlcritic --- lib/NetHack/NAOdash.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/NetHack/NAOdash.pm b/lib/NetHack/NAOdash.pm index 92f17ef..c9e376f 100644 --- a/lib/NetHack/NAOdash.pm +++ b/lib/NetHack/NAOdash.pm @@ -126,7 +126,7 @@ sub _get_xlog { 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 } -- 2.39.2