envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-06-14 00:42:43 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Enclose mod and modpath names if space in them when saving coll

Browse Source
This commit is contained in:
Xavier Delaruelle
2020-02-14 07:08:41 +01:00
parent 637f6a19a0
commit ffe812cecd
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modulecmd.tcl.in
View File

@@ -8508,6 +8508,10 @@ proc formatCollectionContent {path_list mod_list nuasked_list {sgr 0}} {
# start collection content with modulepaths
foreach path $path_list {
# enclose path if space character found in it
if {[string first { } $path] != -1} {
set path "{$path}"
}
# 'module use' prepends paths by default so we clarify
# path order here with --append flag
append content "$modcmd use --append $path" \n
@@ -8517,6 +8521,10 @@ proc formatCollectionContent {path_list mod_list nuasked_list {sgr 0}} {
foreach mod $mod_list {
# mark modules not asked by user to restore the user asked state
set opt [expr {[isInList $nuasked_list $mod] ? {--notuasked } : {}}]
# enclose module if space character found in it
if {[string first { } $mod] != -1} {
set mod "{$mod}"
}
append content "$modcmd load $opt$mod" \n
}