Fix glob with patterns containing spaces

Signed-off-by: Steve Bennett <steveb@workware.net.au>
Reported-by: af123 <jimdevel@hummypkg.org.uk>

1 files changed, 2 insertions, 2 deletions

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]