From 5595bbfc5cfb626ec5028ec5980c8a57eeabd59a Mon Sep 17 00:00:00 2001
From: Xavier Delaruelle <xavier.delaruelle@cea.fr>
Date: Sun, 31 Dec 2023 13:52:38 +0100
Subject: [PATCH] Report unload depun warning locally

Dependent unload mechanism is only triggered from top level evaluation.
So dependent unload warnings were already only emitted to the top level
message block.
---
 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 0bd34e79..c16d5e04 100644
--- a/tcl/subcmd.tcl.in
+++ b/tcl/subcmd.tcl.in
@@ -1642,7 +1642,7 @@ proc cmdModuleUnload {context match auto force onlyureq onlyndep args} {
                         loaded $unmod] failed"
                      ##nagelfar ignore Found constant
                      if {[getState force] || $force} {
-                        reportWarning $errMsg 1
+                        reportWarning $errMsg
                      } else {
                         knerror $errMsg
                      }