Clear auto-loaded tag on cmdModuleTag

xdelaruelle · xdelaruelle · commit 4461cafa470e · 2022-04-25T11:13:20.000+02:00
When the unset_extra flag is enabled, also remove the auto-loaded tag on
module if it is not part of the target tag_list.
diff --git a/tcl/subcmd.tcl.in b/tcl/subcmd.tcl.in
@@ -2427,6 +2427,14 @@ proc cmdModuleTag {unset_extra tag_list args} {
             }
          }
 
+         # ensure auto-loaded tag is not preserved if not part of target tags
+         if {$unset_extra && {auto-loaded} ni $tag_list} {
+            unsetModuleTag $modname auto-loaded
+            if {$modnamevr ne {} && $modname ne $modnamevr} {
+               unsetModuleTag $modnamevr auto-loaded
+            }
+         }
+
          # record new tags as extra tag excluding tags relative to the way
          # module is loaded (auto, keep)
          lassign [getDiffBetweenList $diff_list [list auto-loaded\

Original file line number	Diff line number	Diff line change
`@@ -2427,6 +2427,14 @@ proc cmdModuleTag {unset_extra tag_list args} {`
`2427`	`2427`	`}`
`2428`	`2428`	`}`
`2429`	`2429`
	`2430`	`+ # ensure auto-loaded tag is not preserved if not part of target tags`
	`2431`	`+ if {$unset_extra && {auto-loaded} ni $tag_list} {`
	`2432`	`+ unsetModuleTag $modname auto-loaded`
	`2433`	`+ if {$modnamevr ne {} && $modname ne $modnamevr} {`
	`2434`	`+ unsetModuleTag $modnamevr auto-loaded`
	`2435`	`+ }`
	`2436`	`+ }`
	`2437`	`+`
`2430`	`2438`	`# record new tags as extra tag excluding tags relative to the way`
`2431`	`2439`	`# module is loaded (auto, keep)`
`2432`	`2440`	`lassign [getDiffBetweenList $diff_list [list auto-loaded\`