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/r.R (1005B)

# define modules runtime quarantine configuration
Sys.setenv('MODULES_RUN_QUARANTINE'='LD_LIBRARY_PATH LD_PRELOAD')

# setup quarantine if defined
mlre <- ''
if (!is.na(Sys.getenv('MODULES_RUN_QUARANTINE', unset=NA))) {
   for (mlv in strsplit(Sys.getenv('MODULES_RUN_QUARANTINE'), ' ')[[1]]) {
      if (grepl('^[A-Za-z_][A-Za-z0-9_]*$', mlv)) {
         if (!is.na(Sys.getenv(mlv, unset=NA))) {
            mlre <- paste0(mlre, "__MODULES_QUAR_", mlv, "='", Sys.getenv(mlv), "' ")
         }
         mlrv <- paste0('MODULES_RUNENV_', mlv)
         mlre <- paste0(mlre, mlv, "='", Sys.getenv(mlrv), "' ")
      }
   }
   if (mlre != '') {
      mlre <- paste0('env ', mlre, '__MODULES_QUARANTINE_SET=1 ')
   }
}

# define module command and surrounding initial environment (default value
# for MODULESHOME, MODULEPATH, LOADEDMODULES and parse of init config files)
cmdpipe <- pipe(paste0(mlre, '/usr/bin/tclsh "/usr/share/Modules/libexec/modulecmd.tcl" r autoinit'))
eval(parse(cmdpipe))
close(cmdpipe)

# define modules runtime quarantine configuration Sys.setenv('MODULES_RUN_QUARANTINE'='LD_LIBRARY_PATH LD_PRELOAD') # setup quarantine if defined mlre <- '' if (!is.na(Sys.getenv('MODULES_RUN_QUARANTINE', unset=NA))) { for (mlv in strsplit(Sys.getenv('MODULES_RUN_QUARANTINE'), ' ')[[1]]) { if (grepl('^[A-Za-z_][A-Za-z0-9_]*$', mlv)) { if (!is.na(Sys.getenv(mlv, unset=NA))) { mlre <- paste0(mlre, "__MODULES_QUAR_", mlv, "='", Sys.getenv(mlv), "' ") } mlrv <- paste0('MODULES_RUNENV_', mlv) mlre <- paste0(mlre, mlv, "='", Sys.getenv(mlrv), "' ") } } if (mlre != '') { mlre <- paste0('env ', mlre, '__MODULES_QUARANTINE_SET=1 ') } } # define module command and surrounding initial environment (default value # for MODULESHOME, MODULEPATH, LOADEDMODULES and parse of init config files) cmdpipe <- pipe(paste0(mlre, '/usr/bin/tclsh "/usr/share/Modules/libexec/modulecmd.tcl" r autoinit')) eval(parse(cmdpipe)) close(cmdpipe)