From 4c0159ba17f8b34819a4bbdf6dd3347d8c86d548 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Mon, 27 Feb 2012 09:21:46 +1000 Subject: 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 --- glob.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'glob.tcl') 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 "" -- cgit v1.1