diff options
author | Ben Elliston <bje@gnu.org> | 2004-01-27 07:15:42 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2004-01-27 07:15:42 +0000 |
commit | 0aa48021a97e0011b901a19f55f63c9687601d8c (patch) | |
tree | 3f483bceb7bcd3015e95ee6f9f5124cade6a62a3 | |
parent | c8c2d8e95f16b47bf33338bc294a619c42d41732 (diff) | |
download | dejagnu-0aa48021a97e0011b901a19f55f63c9687601d8c.zip dejagnu-0aa48021a97e0011b901a19f55f63c9687601d8c.tar.gz dejagnu-0aa48021a97e0011b901a19f55f63c9687601d8c.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,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. @@ -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 |