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>

1 files changed, 1 insertions, 1 deletions

diff --git a/glob.tcl b/glob.tcl
index d0e57d6..4bfb4f9 100644
--- a/glob.tcl
+++ b/glob.tcl
@@ -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 ""