diff options
| author | kjnash <k.j.nash@usa.net> | 2020-07-18 13:18:48 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-07-18 13:18:48 (GMT) |
| commit | 690f2c283978a046e78664a1070c5c0bf5ddf67f (patch) | |
| tree | d60a2ece977c15084c009e566c186dba8bc99259 /library | |
| parent | a300508fee9c27bc2ea2bf95a19d7007dcd26424 (diff) | |
| download | tcl-690f2c283978a046e78664a1070c5c0bf5ddf67f.zip tcl-690f2c283978a046e78664a1070c5c0bf5ddf67f.tar.gz tcl-690f2c283978a046e78664a1070c5c0bf5ddf67f.tar.bz2 | |
Bugfix argument combination -- and -directory in ::safe::AliasGlob.
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 843255a..410a5c1 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -815,7 +815,11 @@ proc ::safe::AliasGlob {slave args} { if {$got(-nocomplain)} return return -code error "permission denied" } - lappend cmd -directory $dir + if {$got(--)} { + set cmd [linsert $cmd end-1 -directory $dir] + } else { + lappend cmd -directory $dir + } } # Apply the -join semantics ourselves |