From 23cbb4210e8a14751d62181cce7d6f76cfea4b97 Mon Sep 17 00:00:00 2001
From: Achim Gsell <achim.gsell@psi.ch>
Date: Wed, 28 Apr 2021 11:49:45 +0200
Subject: [PATCH] modulecmd: sub-cmd purge: reset MODUEPATH to used groups

The sub-command purge should not remove used groups from MODULEPATH
---
 Pmodules/modulecmd.bash.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Pmodules/modulecmd.bash.in b/Pmodules/modulecmd.bash.in
index dc3700a..cb19df5 100644
--- a/Pmodules/modulecmd.bash.in
+++ b/Pmodules/modulecmd.bash.in
@@ -1757,7 +1757,7 @@ reset_modulepath() {
 	local group
 	local overlay
 	for overlay in "${!OverlayDict[@]}"; do
-		for group in ${PMODULES_DEFAULT_GROUPS}; do
+		for group in ${UsedGroups//:/ }; do
 			local dir="${overlay}/${group}/${PMODULES_MODULEFILES_DIR}"
 			if [[ -d "${dir}" ]]; then
 				std::prepend_path MODULEPATH "${dir}"
@@ -1912,7 +1912,6 @@ subcommand_purge() {
                 echo "${error}" 1>&2
 	fi
 
-        reset_modulepath
 	if [[ -n "${pmodule}" ]]; then
 		# reload a previously loaded Pmodule module
 		# stderr is redirected to /dev/null, otherwise
@@ -1920,6 +1919,7 @@ subcommand_purge() {
 		# 'unstable module has been loaded'
 		subcommand_load "${pmodule}" 2> /dev/null
 	fi
+        reset_modulepath
 	
 	export_env MODULEPATH PMODULES_HOME
 }