Joe PerchesSift out backup files that are commonly created by editors.
Signed-off-by: Joe Perches <joe@perches.com> --- git-send-email.perl | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-)
Show changes to git-send-email.perl +3 −1
diff --git a/git-send-email.perl b/git-send-email.perl index 98ab33a..a4558d9 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -521,7 +521,9 @@ while (defined(my $f = shift @ARGV)) { opendir my $dh, $f or die "Failed to opendir $f: $!"; - push @files, grep { -f $_ } map { catfile($f, $_) } + push @files, grep { !/#.+#$/ && !/~$/ && + !/\.bak$/ && !/\.orig$/ && + -f $_ } map { catfile($f, $_) } sort readdir $dh; closedir $dh; } elsif ((-f $f or -p $f) and !check_file_rev_conflict($f)) {
-- 1.7.6.131.g99019
