diff options
| author | kjnash <k.j.nash@usa.net> | 2020-07-26 02:54:33 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-07-26 02:54:33 (GMT) |
| commit | 6bad0fe2c0035a1724e85f23cc97a86ca15ae2c0 (patch) | |
| tree | 26996aea7887b95b44732f6afd9b0d829900b87b | |
| parent | 06feee532810f27a6f6dcf9aefdc795b29060aa1 (diff) | |
| download | tcl-6bad0fe2c0035a1724e85f23cc97a86ca15ae2c0.zip tcl-6bad0fe2c0035a1724e85f23cc97a86ca15ae2c0.tar.gz tcl-6bad0fe2c0035a1724e85f23cc97a86ca15ae2c0.tar.bz2 | |
Fix merge error in library/safe.tcl. Has effect only if using private command safe::DetokPath with interp name that has namespace separators.
| -rw-r--r-- | library/safe.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 18360ce..b5ee95f 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -501,7 +501,7 @@ proc ::safe::InterpSetConfig {slave access_path staticsok nestedok deletehook au # nonsense in both the slave and the master. # proc ::safe::DetokPath {slave tokenPath} { - namespace upvar ::safe S$slave state + namespace upvar ::safe [VarName $slave] state set slavePath {} foreach token $tokenPath { |