From 424aa9013b982d37eddd2d75279b7d67471e8045 Mon Sep 17 00:00:00 2001
From: Xavier Delaruelle <xavier.delaruelle@cea.fr>
Date: Sun, 30 Oct 2022 17:45:23 +0100
Subject: [PATCH] Only refresh loaded modules requiring it

Use the qualified refresh property to only evaluate in refresh mode the
loaded modules marked with this property.

Fixes #477
---
 tcl/subcmd.tcl.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tcl/subcmd.tcl.in b/tcl/subcmd.tcl.in
index 9e3e5c8fc..841353b41 100644
--- a/tcl/subcmd.tcl.in
+++ b/tcl/subcmd.tcl.in
@@ -2466,7 +2466,7 @@ proc cmdModuleRefresh {} {
    # load variants from loaded modules
    cacheCurrentModules
 
-   foreach lm [getLoadedModulePropertyList name] {
+   foreach lm [getLoadedModulePropertyList refresh] {
       # prepare info to execute modulefile
       set vrlist [getVariantList $lm 1]
       if {[llength $vrlist] > 0} {