Pmodules/libmodules.tcl

- module-addgroup: unloading bug fixed, closing #23
2026-06-28 02:19:39 +02:00 · 2017-11-14 10:37:59 +01:00
parent 20f8d49b86
commit e7b9954ff7
1 changed files with 2 additions and 2 deletions
@@ -49,14 +49,14 @@ proc module-addgroup { group } {
 		set GROUP [string toupper $group]
 		debug "remove hierarchical group '${GROUP}'"
 		
-		if { [info exists env(PMODULES_LOADED_${GROUP})] } {
+		if { [info exists ::env(PMODULES_LOADED_${GROUP})] } {
 			debug "unloading orphan modules"
 			set modules [split $env(PMODULES_LOADED_${GROUP}) ":"]
 			foreach m ${modules} {
 				if { ${m} == "--APPMARKER--" } {
 					continue
 				}
-				if { [is-loaded ${module_name}] } {
+				if { [is-loaded ${m}] } {
 					debug "unloading: $m"
 					module unload ${m}
 				}