mirror of
https://github.com/Pmodules/Pmodules.git
synced 2026-06-27 10:03:08 +02:00
libmodules.tcl: dont setenv issue fixed
This commit is contained in:
@@ -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
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user