diff options
-rwxr-xr-x | gen.pl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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/$_"; } |