serialize1LvlModulePropertyValue value arg is never empty

cea-hpc · Oct 4, 2023 · 94be93f · 94be93f
1 parent 3e2556f
commit 94be93f
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/tcl/modfind.tcl.in b/tcl/modfind.tcl.in
@@ -1831,13 +1831,9 @@ proc serialize2LvlModulePropertyValue {mod structured_value_list\
 
 proc serialize1LvlModulePropertyValue {mod structured_value_list\
    char_map_list} {
-   if {[llength $structured_value_list]} {
-      set serialized_value [join [list $mod {*}$structured_value_list]\
-         [getState sub1_separator]]
-      set ret [string map $char_map_list $serialized_value]
-   } else {
-      set ret {}
-   }
+   set serialized_value [join [list $mod {*}$structured_value_list] [getState\
+      sub1_separator]]
+   set ret [string map $char_map_list $serialized_value]
    return $ret
 }