FM / init

/usr/share/Modules/init

Name	Size	Mode	Actions
ksh-functions/	-	0755	rm
zsh-functions/	-	0755	rm
bash	4134	0644	edit dl rm
bash_completion	11464	0644	edit dl rm
cmake	1925	0644	edit dl rm
csh	3874	0644	edit dl rm
fish	1733	0644	edit dl rm
fish_completion	9647	0644	edit dl rm
ksh	4162	0644	edit dl rm
lisp	3230	0644	edit dl rm
perl.pm	1118	0644	edit dl rm
profile-compat.csh	197	0644	edit dl rm
profile-compat.sh	309	0644	edit dl rm
profile.csh	105	0644	edit dl rm
profile.sh	448	0644	edit dl rm
python.py	1539	0644	edit dl rm
r.R	961	0644	edit dl rm
ruby.rb	1379	0644	edit dl rm
sh	4004	0644	edit dl rm
tcl	1071	0644	edit dl rm
tcsh	3880	0644	edit dl rm
tcsh_completion	5521	0644	edit dl rm
zsh	4151	0644	edit dl rm

Edit: /usr/share/Modules/init/tcl (1071B)

# define modules runtine quarantine configuration
set env(MODULES_RUN_QUARANTINE) "LD_LIBRARY_PATH LD_PRELOAD"

# setup quarantine if defined
set _mlre {}; set _mlv ""; set _mlrv "";
if {[info exists env(MODULES_RUN_QUARANTINE)]} {
   foreach _mlv [split $env(MODULES_RUN_QUARANTINE) " "] {
     if {[regexp {^[A-Za-z_][A-Za-z0-9_]*$} $_mlv]} {
        if {[info exists env($_mlv)]} {
           lappend _mlre "${_mlv}_modquar=$env($_mlv)"
        }
        set _mlrv "MODULES_RUNENV_${_mlv}"
        if {[info exists env($_mlrv)]} {
           lappend _mlre "${_mlv}=$env($_mlrv)"
        } else {
           lappend _mlre "${_mlv}="
        }
     }
   }
   if {[llength $_mlre] > 0} {
     set _mlre [linsert $_mlre 0 "env"]
   }
}

# define module command and surrounding initial environment (default value
# for MODULESHOME, MODULEPATH, LOADEDMODULES and parse of init config files)
eval [eval exec $_mlre "/usr/bin/tclsh" "/usr/share/Modules/libexec/modulecmd.tcl" "tcl" "autoinit" 2>@stderr]

# clean temp variables used to setup quarantine
unset _mlre _mlv _mlrv

# define modules runtine quarantine configuration set env(MODULES_RUN_QUARANTINE) "LD_LIBRARY_PATH LD_PRELOAD" # setup quarantine if defined set _mlre {}; set _mlv ""; set _mlrv ""; if {[info exists env(MODULES_RUN_QUARANTINE)]} { foreach _mlv [split $env(MODULES_RUN_QUARANTINE) " "] { if {[regexp {^[A-Za-z_][A-Za-z0-9_]*$} $_mlv]} { if {[info exists env($_mlv)]} { lappend _mlre "${_mlv}_modquar=$env($_mlv)" } set _mlrv "MODULES_RUNENV_${_mlv}" if {[info exists env($_mlrv)]} { lappend _mlre "${_mlv}=$env($_mlrv)" } else { lappend _mlre "${_mlv}=" } } } if {[llength $_mlre] > 0} { set _mlre [linsert $_mlre 0 "env"] } } # define module command and surrounding initial environment (default value # for MODULESHOME, MODULEPATH, LOADEDMODULES and parse of init config files) eval [eval exec $_mlre "/usr/bin/tclsh" "/usr/share/Modules/libexec/modulecmd.tcl" "tcl" "autoinit" 2>@stderr] # clean temp variables used to setup quarantine unset _mlre _mlv _mlrv