From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 21 Jul 2014 02:44:38 +0000 (-0700)
Subject: ignore symlinks too
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ca3d0bd89464bb3e80b2eece1689b6d2ac3af7ee;p=bin.git

ignore symlinks too
---

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);