diff options
| author | kjnash <k.j.nash@usa.net> | 2020-07-13 11:49:46 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-07-13 11:49:46 (GMT) |
| commit | c256107a5c50a4ffa13d226f245f25cf4ccc311f (patch) | |
| tree | bc7aae21e1fe2afba9310c674453cba5e4e9d3f8 /library | |
| parent | 2c1750c78f0c5c36008d4043f099ef2485d96de4 (diff) | |
| download | tcl-c256107a5c50a4ffa13d226f245f25cf4ccc311f.zip tcl-c256107a5c50a4ffa13d226f245f25cf4ccc311f.tar.gz tcl-c256107a5c50a4ffa13d226f245f25cf4ccc311f.tar.bz2 | |
Bugfix in library/safe.tcl for doreset (auto_reset); pass test safe-9.9
Diffstat (limited to 'library')
| -rw-r--r-- | library/safe.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 3429b9e..7ed6b94 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -192,10 +192,10 @@ proc ::safe::interpConfigure {args} { # Get the current (and not the default) values of whatever has # not been given: if {![::tcl::OptProcArgGiven -accessPath]} { - set doreset 1 + set doreset 0 set accessPath $state(access_path) } else { - set doreset 0 + set doreset 1 } if { ![::tcl::OptProcArgGiven -statics] |