diff options
author | Steve Bennett <steveb@workware.net.au> | 2012-02-27 09:21:46 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2012-02-27 09:21:46 +1000 |
commit | 4c0159ba17f8b34819a4bbdf6dd3347d8c86d548 (patch) | |
tree | e078120801d323bd71311b0fd738139ba1b544de | |
parent | 9951e1ece7551809575a6a42b114224c2552efb4 (diff) | |
download | jimtcl-4c0159ba17f8b34819a4bbdf6dd3347d8c86d548.zip jimtcl-4c0159ba17f8b34819a4bbdf6dd3347d8c86d548.tar.gz jimtcl-4c0159ba17f8b34819a4bbdf6dd3347d8c86d548.tar.bz2 |
Fix a bug in glob
On mingw, double slashes don't work so be sure to join "/" and "z" as "/z", not "//z"
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | glob.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -34,7 +34,7 @@ proc glob {args} { if {[string match {*[[*?]*} $pattern]} { # Use -nocomplain here to return nothing if $dir is not a directory set files [readdir -nocomplain $dir] - } elseif {[file isdir $dir] && [file exists $dir/$pattern]} { + } elseif {[file isdir $dir] && [file exists [file join $dir $pattern]]} { set files [list $pattern] } else { set files "" |