commit 695c66cf85db881c430ccb0c54d41678ef770c33
Author: Steve Bennett <steveb@workware.net.au>
Date:   Sun Jan 29 08:37:08 2012 +1000

    Fix glob with patterns containing spaces
    
    Signed-off-by: Steve Bennett <steveb@workware.net.au>
    Reported-by: af123 <jimdevel@hummypkg.org.uk>

diff --git a/glob.tcl b/glob.tcl
index cd94d8d..3e8a3fd 100644
--- a/glob.tcl
+++ b/glob.tcl
@@ -61,10 +61,10 @@ proc glob {args} {
 		# Avoid regexp for dependency reasons.
 		# XXX: Doesn't handle backslashed braces
 		if {[set fb [string first "\{" $pattern]] < 0} {
-			return $pattern
+			return [list $pattern]
 		}
 		if {[set nb [string first "\}" $pattern $fb]] < 0} {
-			return $pattern
+			return [list $pattern]
 		}
 		set before [string range $pattern 0 $fb-1]
 		set braced [string range $pattern $fb+1 $nb-1]