Merge branch '198-dont-setenv-is-broken' into 'master'

Resolve "dont-setenv is broken"

Closes #198

See merge request Pmodules/src!174

(cherry picked from commit 21004e09ff)

68ac0bc2 libmodules.tcl: dont setenv issue fixed
This commit is contained in:
2023-04-21 09:10:55 +00:00
parent 42a116f0a4
commit e1ace9d389
+5 -2
View File
@@ -172,16 +172,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
}
}