From ca3d0bd89464bb3e80b2eece1689b6d2ac3af7ee Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 20 Jul 2014 19:44:38 -0700
Subject: [PATCH] ignore symlinks too

---
 archive_photos | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/archive_photos b/archive_photos
index 16bd258..aaa9d94 100755
--- 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);
-- 
2.39.2