From e7b9954ff7adcde8f59d63f38fa01052ddc16e6c Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Tue, 14 Nov 2017 10:37:59 +0100 Subject: [PATCH] Pmodules/libmodules.tcl - module-addgroup: unloading bug fixed, closing #23 --- Pmodules/libmodules.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Pmodules/libmodules.tcl b/Pmodules/libmodules.tcl index c4c1419..66f674b 100644 --- a/Pmodules/libmodules.tcl +++ b/Pmodules/libmodules.tcl @@ -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} }