From 43831c46600a2365329ea954d069a2d8c41659e8 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Mon, 13 Dec 2021 09:37:58 +0100 Subject: [PATCH] libmodules.tcl: handle new format of OverlayDict --- Pmodules/libmodules.tcl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Pmodules/libmodules.tcl b/Pmodules/libmodules.tcl index 163bb4d..393a309 100644 --- a/Pmodules/libmodules.tcl +++ b/Pmodules/libmodules.tcl @@ -79,7 +79,8 @@ proc module-addgroup { group } { foreach overlay $::OverlayList { lappend overlays_to_add $overlay debug $overlay - if { [string compare $::OverlayDict($overlay) $::ol_replacing] == 0 } { + set ol_type [lindex [split $OverlayDict($overlay) ":"] 0] + if { [string compare $ol_type $::ol_replacing] == 0 } { break } }