|
 |
c65d2c |
diff --git a/modules-4.5.2/modulecmd.tcl.in b/modulecmd.tcl.in
|
|
|
c65d2c |
index 3abd4ad..cf6cb3b 100644
|
|
|
c65d2c |
--- a/modules-4.5.2/modulecmd.tcl.in
|
|
|
c65d2c |
+++ b/modulecmd.tcl.in
|
|
|
c65d2c |
@@ -10564,8 +10564,17 @@ proc cmdModuleAutoinit {} {
|
|
|
c65d2c |
@VERSIONING@ setenv MODULE_VERSION_STACK @MODULES_RELEASE@@MODULES_BUILD@
|
|
|
c65d2c |
@VERSIONING@}
|
|
|
c65d2c |
|
|
|
c65d2c |
- # initialize default MODULEPATH and LOADEDMODULES
|
|
|
c65d2c |
- if {![info exists ::env(MODULEPATH)] || $::env(MODULEPATH) eq {}} {
|
|
|
c65d2c |
+ # initialize MODULEPATH and LOADEDMODULES if found unset
|
|
|
c65d2c |
+ if {![info exists ::env(MODULEPATH)]} {
|
|
|
c65d2c |
+ setenv MODULEPATH {}
|
|
|
c65d2c |
+ }
|
|
|
c65d2c |
+ if {![info exists ::env(LOADEDMODULES)]} {
|
|
|
c65d2c |
+ setenv LOADEDMODULES {}
|
|
|
c65d2c |
+ }
|
|
|
c65d2c |
+
|
|
|
c65d2c |
+ # initialize user environment if found undefined (both MODULEPATH and
|
|
|
c65d2c |
+ # LOADEDMODULES empty)
|
|
|
c65d2c |
+ if {$::env(MODULEPATH) eq {} && $::env(LOADEDMODULES) eq {}} {
|
|
|
c65d2c |
# set modpaths defined in modulespath config file if it exists, use file
|
|
|
c65d2c |
# in etcdir if it exists, dot file in initdir elsewhere
|
|
|
c65d2c |
set modulespath [expr {[file exists @etcdir@/modulespath] ?\
|
|
|
c65d2c |
@@ -10580,17 +10589,8 @@ proc cmdModuleAutoinit {} {
|
|
|
c65d2c |
}
|
|
|
c65d2c |
}
|
|
|
c65d2c |
|
|
|
c65d2c |
- if {![info exists ::env(MODULEPATH)]} {
|
|
|
c65d2c |
- setenv MODULEPATH {}
|
|
|
c65d2c |
- }
|
|
|
c65d2c |
- }
|
|
|
c65d2c |
- if {![info exists ::env(LOADEDMODULES)]} {
|
|
|
c65d2c |
- setenv LOADEDMODULES {}
|
|
|
c65d2c |
- }
|
|
|
c65d2c |
-
|
|
|
c65d2c |
- # source initialization modulerc if any and if no env already initialized
|
|
|
c65d2c |
- # use initrc file in etcdir if any, modulerc file in initdir otherwise
|
|
|
c65d2c |
- if {$::env(MODULEPATH) eq {} && $::env(LOADEDMODULES) eq {}} {
|
|
|
c65d2c |
+ # source initialization modulerc if any and if no env already initialized
|
|
|
c65d2c |
+ # use initrc file in etcdir if any, modulerc file in initdir otherwise
|
|
|
c65d2c |
set initrc [expr {[file exists @etcdir@/initrc] ? {@etcdir@/initrc} :\
|
|
|
c65d2c |
{@initdir@/modulerc}}]
|
|
|
c65d2c |
if {[file exists $initrc]} {
|