Fix static file copying

stat may return undef

1 files changed, 2 insertions, 1 deletions

diff --git a/gen.pl b/gen.pl
index d1d5d5f..6a0ec7c 100755
--- a/gen.pl
+++ b/gen.pl
@@ -91,7 +91,8 @@ opendir $out, 'out' or die "Could not open directory src: $!";
 my %src = map { ($_, (stat "src/$_")[9]||0) } grep { not /^\./ or /^index\.html$/ } readdir $src;
 my %out = map { ($_, (stat "out/$_")[9]||0) } grep { not /^\./ or /^index\.html$/ } readdir $out;
 for (keys %src) {
-	if ($out{$_} and $src{$_} > $out{$_}) {
+	no warnings 'uninitialized';
+	if ($src{$_} > $out{$_}) {
 		print STDERR "COPY: src/$_ => out/$_\n" if $opt{d};
 		copy "src/$_" => "out/$_";
 	}