Ease ref counter clear when unsetting var due to init value

xdelaruelle · xdelaruelle · commit eb81f7ad3d9f · 2026-06-24T17:46:52.000+02:00
Signed-off-by: Xavier Delaruelle &lt;xavier.delaruelle@cea.fr&gt;
diff --git a/tcl/envmngt.tcl.in b/tcl/envmngt.tcl.in
@@ -1784,9 +1784,7 @@ proc unload-path {cmd mode dflbhv args} {
       if {!$isrefcount || ![info exists countarr($init_value)] ||\
          $countarr($init_value) <= 1} {
          set newpath [list]
-         if {[info exists countarr($init_value)]} {
-            unset countarr($init_value)
-         }
+         unset -nocomplain countarr($init_value)
       }
    }
 

Original file line number	Diff line number	Diff line change
`@@ -1784,9 +1784,7 @@ proc unload-path {cmd mode dflbhv args} {`
`1784`	`1784`	`if {!$isrefcount \|\| ![info exists countarr($init_value)] \|\|\`
`1785`	`1785`	`$countarr($init_value) <= 1} {`
`1786`	`1786`	`set newpath [list]`
`1787`		`- if {[info exists countarr($init_value)]} {`
`1788`		`- unset countarr($init_value)`
`1789`		`- }`
	`1787`	`+ unset -nocomplain countarr($init_value)`
`1790`	`1788`	`}`
`1791`	`1789`	`}`
`1792`	`1790`