From 6af0cdeb506f44377fbbe6341e9cb377724e009c Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Wed, 24 Mar 2004 20:14:04 +0000
Subject: [PATCH] Initial version.

---
 configure/tools/cvsclean.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 configure/tools/cvsclean.pl

diff --git a/configure/tools/cvsclean.pl b/configure/tools/cvsclean.pl
new file mode 100755
index 000000000..6ae8be38c
--- /dev/null
+++ b/configure/tools/cvsclean.pl
@@ -0,0 +1,21 @@
+eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
+    if $running_under_some_shell; # cvsclean.pl
+#*************************************************************************
+# Copyright (c) 2002 The University of Chicago, as Operator of Argonne
+# National Laboratory.
+# Copyright (c) 2002 The Regents of the University of California, as
+# Operator of Los Alamos National Laboratory.
+# This file is distributed subject to a Software License Agreement found
+# in the file LICENSE that is included with this distribution. 
+#*************************************************************************
+
+# $Id$
+#
+# Find and delete cvs .#* files in all dirs of directory tree
+
+use File::Find;
+
+@ARGV = ('.') unless @ARGV;
+
+find sub { unlink if -f && m/^\.\#/ }, @ARGV;
+