'make cvsclean' should delete old editor backup files too.

Not that we're using CVS for Base any more...
This commit is contained in:
Andrew Johnson
2010-04-28 17:19:36 -05:00
parent 6142ff3ece
commit 618e189898
+3 -3
View File
@@ -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;