summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
2042733)
It didn't actually preserve anything: wrong upvar level.
## Evaluate BODY, but on exit restore the CONFVAR array so that the BODY
## has no lasting effect on it.
## Evaluate BODY, but on exit restore the CONFVAR array so that the BODY
## has no lasting effect on it.
- upvar #1 $confvar CONFIG
+ upvar #0 $confvar CONFIG
set old [array get CONFIG]
unwind-protect {
uplevel 1 $body
set old [array get CONFIG]
unwind-protect {
uplevel 1 $body