libmodules.tcl: dont setenv issue fixed

This commit is contained in:
2023-04-21 11:08:44 +02:00
parent e9efb471ad
commit 68ac0bc28f
+5 -2
View File
@@ -215,16 +215,19 @@ proc _pmodules_setenv { PREFIX name version } {
setenv $key $value
}
dict for {key value} $setenv_dirs {
if { [lsearch ${::dont-setenv} $key] >= 0 || ![file isdirectory $key] } {
if { [lsearch ${::dont-setenv} $value] >= 0 || ![file isdirectory $key] } {
continue
}
setenv $value $key
}
dict for {key value} $prepend_dirs {
if { [lsearch ${::dont-setenv} $key] >= 0 || ![file isdirectory $key] } {
if { ![file isdirectory $key] } {
continue
}
foreach var $value {
if { [lsearch ${::dont-setenv} $var] >= 0 } {
continue
}
prepend-path $var $key
}
}