ignore symlinks too

diff --git a/archive_photos b/archive_photos
index 16bd258b57da4cf3b9288fa2b80d4d99272c5a2b..aaa9d945045e4f4517c8fc752a20f6bb39cf4aa8 100755 (executable)
--- a/archive_photos
+++ b/archive_photos
@@ -122,7 +122,7 @@ find(\&file_pusher,@dirs) if @dirs;
 
 # find already existing files
 my %existing_files;
-find(sub { if (-f $_) {$existing_files{$_} = $File::Find::name;} },$options{archive_dir});
+find(sub { if (-f $_ or -l $_) {$existing_files{$_} = $File::Find::name;} },$options{archive_dir});
 
 for my $file (@files) {
     my $file_basename=basename($file);