Tolerate vanishing files

This commit is contained in:
Peter J. Holzer 2016-09-15 12:26:03 +02:00
parent 52d52cb258
commit be21bc6ff8
1 changed files with 1 additions and 0 deletions

View File

@ -58,6 +58,7 @@ my @hist;
sub wanted { sub wanted {
my $st = lstat($_); my $st = lstat($_);
return unless $st;
my $age = $now - ( my $age = $now - (
$opts{atime} ? $st->atime : $opts{atime} ? $st->atime :
$opts{mtime} ? $st->mtime : $opts{mtime} ? $st->mtime :