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 setenv $key $value
} }
dict for {key value} $setenv_dirs { 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 continue
} }
setenv $value $key setenv $value $key
} }
dict for {key value} $prepend_dirs { dict for {key value} $prepend_dirs {
if { [lsearch ${::dont-setenv} $key] >= 0 || ![file isdirectory $key] } { if { ![file isdirectory $key] } {
continue continue
} }
foreach var $value { foreach var $value {
if { [lsearch ${::dont-setenv} $var] >= 0 } {
continue
}
prepend-path $var $key prepend-path $var $key
} }
} }