glob: work when intermidiate dirs are not readable

If /a/b/c exists, but directory 'a' has 'x' but not 'r'
permissions, we should still be able to glob /a/b/*

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 5 insertions, 0 deletions

diff --git a/glob.tcl b/glob.tcl
index 6b1ad39..ea27fde 100644
--- a/glob.tcl
+++ b/glob.tcl
@@ -9,6 +9,11 @@ package require readdir
 
 # Return a list of all entries in $dir that match the pattern.
 proc glob.globdir {dir pattern} {
+	if {[file exists $dir/$pattern]} {
+		# Simple case
+		return $pattern
+	}
+
 	set result {}
 	set files [readdir $dir]
 	lappend files . ..