bin/zoneconf: Fix preserving-config.

It didn't actually preserve anything: wrong upvar level.

diff --git a/bin/zoneconf b/bin/zoneconf
index c8ac895..8e0646d 100755 (executable)
--- a/bin/zoneconf
+++ b/bin/zoneconf
@@ -312,7 +312,7 @@ proc preserving-config {confvar body} {
   ## 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