From 74bedcbd4d46ad9c1cd9af4cd624e46a74d4a4b0 Mon Sep 17 00:00:00 2001 From: Ben Elliston Date: Tue, 27 Jan 2004 07:14:56 +0000 Subject: [PATCH] * Clean.tcl: Run tclsh via /usr/bin/env for portability. (cleanfiles): Concatenate regular filenames that match .*. --- ChangeLog | 5 +++++ Clean.tcl | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index db21b9a..3f2d1ea 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2004-01-27 Ben Elliston + * Clean.tcl: Run tclsh via /usr/bin/env for portability. + (cleanfiles): Concatenate regular filenames that match .*. + +2004-01-27 Ben Elliston + * doc/overview: Remove all files. 2003-12-03 Ben Elliston 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 -- 2.11.4.GIT