File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -94,8 +94,9 @@ setenv_var MODULES_PAGINATE 1
9494unsetenv_var MODULES_LOGGED_EVENTS
9595unsetenv_var MODULES_LOGGER
9696
97- # clean any protected variable configuration
97+ # clean any environment variable-specific configuration
9898unsetenv_var MODULES_PROTECTED_ENVVARS
99+ unsetenv_var MODULES_LINKED_ENVVARS
99100
100101# clean any output redirection configuration
101102unsetenv_var MODULES_REDIRECT_OUTPUT
Original file line number Diff line number Diff line change @@ -95,8 +95,9 @@ setenv_var MODULES_PAGINATE 1
9595unsetenv_var MODULES_LOGGED_EVENTS
9696unsetenv_var MODULES_LOGGER
9797
98- # clean any protected variable configuration
98+ # clean any environment variable-specific configuration
9999unsetenv_var MODULES_PROTECTED_ENVVARS
100+ unsetenv_var MODULES_LINKED_ENVVARS
100101
101102# clean any output redirection configuration
102103unsetenv_var MODULES_REDIRECT_OUTPUT
Original file line number Diff line number Diff line change @@ -85,6 +85,7 @@ array set configdfl [list\
8585 implicit_default [expr {$install_implicitdefault eq {y}}]\
8686 implicit_requirement [expr {$install_implicitrequirement eq {y}}]\
8787 info_extension 0\
88+ linked_envvars {}\
8889 list_output $install_listoutput\
8990 list_terse_output $install_listterseoutput\
9091 locked_configs $install_lockedconfigs\
@@ -155,6 +156,7 @@ array set configvar [list\
155156 implicit_default MODULES_IMPLICIT_DEFAULT\
156157 implicit_requirement MODULES_IMPLICIT_REQUIREMENT\
157158 info_extension MODULES_INFO_EXTENSION\
159+ linked_envvars MODULES_LINKED_ENVVARS\
158160 list_output MODULES_LIST_OUTPUT\
159161 list_terse_output MODULES_LIST_TERSE_OUTPUT\
160162 logged_events MODULES_LOGGED_EVENTS\
@@ -273,6 +275,7 @@ array set configkind [list\
273275 avail_output l\
274276 avail_terse_output l\
275277 colors l\
278+ linked_envvars l\
276279 list_output l\
277280 list_terse_output l\
278281 logged_events l\
@@ -419,6 +422,8 @@ foreach param [array names configvar] {
419422 set val foo=%
420423 } elseif {$param eq {pager}} {
421424 set val $configdfl(pager)
425+ } elseif {$param eq {linked_envvars}} {
426+ set val FOO&BAR
422427 } elseif {[info exists configvalid($param)]} {
423428 if {$configvalid($param) eq {integer}} {
424429 set val 5
You can’t perform that action at this time.
0 commit comments