diff options
| author | kjnash <k.j.nash@usa.net> | 2020-07-15 17:03:47 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-07-15 17:03:47 (GMT) |
| commit | 69fdd85b744c7f463d6731dff11db373df7e33f6 (patch) | |
| tree | f5d149d99f8933f706bff6bd39b09e14774fbc65 /library | |
| parent | c14dbae8ad115c63cccc32ca0fee7a5c355edbe5 (diff) | |
| download | tcl-69fdd85b744c7f463d6731dff11db373df7e33f6.zip tcl-69fdd85b744c7f463d6731dff11db373df7e33f6.tar.gz tcl-69fdd85b744c7f463d6731dff11db373df7e33f6.tar.bz2 | |
Bugfix in library/safe.tcl - AliasGlob passes -join to glob inappropriately; pass new test safe-13.7a
Diffstat (limited to 'library')
| -rw-r--r-- | library/safe.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 68d4b21..82a2780 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -769,11 +769,15 @@ proc ::safe::AliasGlob {slave args} { while {$at < [llength $args]} { switch -glob -- [set opt [lindex $args $at]] { - -nocomplain - -- - -join - -tails { + -nocomplain - -- - -tails { lappend cmd $opt set got($opt) 1 incr at } + -join { + set got($opt) 1 + incr at + } -types - -type { lappend cmd -types [lindex $args [incr at]] incr at |