From 618e189898421303dfb4cbaf6f8fb36d9c010867 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Wed, 28 Apr 2010 17:19:36 -0500
Subject: [PATCH] 'make cvsclean' should delete old editor backup files too.
 Not that we're using CVS for Base any more...

---
 src/tools/cvsclean.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/tools/cvsclean.pl b/src/tools/cvsclean.pl
index 6ae8be38c..bd05c0de6 100755
--- a/src/tools/cvsclean.pl
+++ b/src/tools/cvsclean.pl
@@ -11,11 +11,11 @@ eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
 
 # $Id$
 #
-# Find and delete cvs .#* files in all dirs of directory tree
+# Find and delete cvs .#* and editor backup *~
+# files from all dirs of the directory tree.
 
 use File::Find;
 
 @ARGV = ('.') unless @ARGV;
 
-find sub { unlink if -f && m/^\.\#/ }, @ARGV;
-
+find sub { unlink if -f && m/(^\.\#)|(~$)/ }, @ARGV;