* Clean.tcl: Run tclsh via /usr/bin/env for portability.

	(cleanfiles): Concatenate regular filenames that match .*.

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index db21b9a..3f2d1ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2004-01-27  Ben Elliston  <bje@wasabisystems.com>
 
+	* Clean.tcl: Run tclsh via /usr/bin/env for portability.
+	(cleanfiles): Concatenate regular filenames that match .*.
+
+2004-01-27  Ben Elliston  <bje@wasabisystems.com>
+
 	* doc/overview: Remove all files.
 
 2003-12-03  Ben Elliston  <bje@wasabisystems.com>
diff --git a/Clean.tcl b/Clean.tcl
index b671d4e..0e8a954 100755
--- a/Clean.tcl
+++ b/Clean.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/tclsh
+#!/usr/bin/env tclsh
 
 # Clean.tcl
 #	This script is used to remove all unwanted files from a
@@ -114,6 +114,7 @@ proc cleanfiles { directory } {
 
     # get a list of all the files in this directory
     set allfiles [glob -nocomplain "$directory/*"]
+    concat allfiles [glob -nocomplain -type f "$directory/.*"]
     regsub -all "$directory/" $allfiles "" allfiles
 
     # open the .clean file, which has the list of stuff we