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

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

diff --git a/ChangeLog b/ChangeLog
index b679516..4cc7dfc 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+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-12  Ben Elliston  <bje@wasabisystems.com>
 
        * baseboards/frv-sim.exp: Remove reference to devo/sim.

diff --git a/Clean.tcl b/Clean.tcl
index b671d4e..0e8a954 100755 (executable)
--- 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