From df0ec7dae309ac9ff7f452b26d78acbfadd77790 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Tue, 14 Nov 2017 11:27:13 +0100 Subject: [PATCH] Pmodules/modulecmd.tcl.in: - fixing unload bug, closes #23 - [module-info mode] returns 'unload' in Tcl implementation --- Pmodules/modulecmd.tcl.in | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Pmodules/modulecmd.tcl.in b/Pmodules/modulecmd.tcl.in index e472809..be38ac4 100644 --- a/Pmodules/modulecmd.tcl.in +++ b/Pmodules/modulecmd.tcl.in @@ -109,7 +109,7 @@ proc module-addgroup { group } { global name global version - debug "called with arg $group" + debug "called with arg $group, mode is \"[module-info mode]\"" set Implementation [file join {*}$::implementation] set GROUP [string toupper $group] @@ -128,7 +128,7 @@ proc module-addgroup { group } { append-path PMODULES_USED_GROUPS $group debug "mode=load: new MODULEPATH=$env(MODULEPATH)" debug "mode=load: new PMODULES_USED_GROUPS=$env(PMODULES_USED_GROUPS)" - } elseif { [module-info mode remove] } { + } elseif { [module-info mode unload] } { set GROUP [string toupper $group] debug "remove hierarchical group '${GROUP}'" @@ -139,7 +139,7 @@ proc module-addgroup { group } { if { ${m} == "999999999" } { continue } - if { [is-loaded ${module_name}] } { + if { [is-loaded ${m}] } { debug "unloading: $m" module unload ${m} }