aboutsummaryrefslogtreecommitdiff
path: root/glob.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'glob.tcl')
-rw-r--r--glob.tcl4
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]