FM / init

/usr/share/Modules/init

Name	Size	Mode	Actions
ksh-functions/	-	0755	rm
zsh-functions/	-	0755	rm
bash	1742	0644	edit dl rm
bash_completion	12828	0644	edit dl rm
cmake	1230	0644	edit dl rm
csh	232	0644	edit dl rm
fish	867	0644	edit dl rm
fish_completion	13315	0644	edit dl rm
ksh	1740	0644	edit dl rm
lisp	3230	0644	edit dl rm
perl.pm	764	0644	edit dl rm
profile.csh	109	0644	edit dl rm
profile.sh	479	0644	edit dl rm
python.py	1169	0644	edit dl rm
r.R	1005	0644	edit dl rm
ruby.rb	883	0644	edit dl rm
sh	2129	0644	edit dl rm
tcl	1124	0644	edit dl rm
tcsh	233	0644	edit dl rm
tcsh_completion	7969	0644	edit dl rm
zsh	2041	0644	edit dl rm

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

# define modules runtime 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 "__MODULES_QUAR_${_mlv}=$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} {
     lappend _mlre "__MODULES_QUARANTINE_SET=1"
     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 [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 runtime 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 "__MODULES_QUAR_${_mlv}=$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} { lappend _mlre "__MODULES_QUARANTINE_SET=1" 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 [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