From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 22 Aug 2015 19:41:13 +0000 (+0300)
Subject: Appease perlcritic
X-Git-Tag: 0.002~1
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=3b893b63494905975c33aa6365d1914ea7fe03dc;p=nethack-naodash.git

Appease perlcritic
---

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
 }