diff options
author | Ben Elliston <bje@gnu.org> | 2004-01-27 07:14:56 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2004-01-27 07:14:56 +0000 |
commit | 74bedcbd4d46ad9c1cd9af4cd624e46a74d4a4b0 (patch) | |
tree | 7ebee470277f513e17dac133af6bc6b780f4f26f | |
parent | 57d8e1e3c01e78f2b4ce17b8f13c0b3d8d05f853 (diff) | |
download | dejagnu-74bedcbd4d46ad9c1cd9af4cd624e46a74d4a4b0.zip dejagnu-74bedcbd4d46ad9c1cd9af4cd624e46a74d4a4b0.tar.gz dejagnu-74bedcbd4d46ad9c1cd9af4cd624e46a74d4a4b0.tar.bz2 |
* Clean.tcl: Run tclsh via /usr/bin/env for portability.
(cleanfiles): Concatenate regular filenames that match .*.
-rw-r--r-- | ChangeLog | 5 | ||||
-rwxr-xr-x | Clean.tcl | 3 |
2 files changed, 7 insertions, 1 deletions
@@ -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> @@ -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 |