envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-06-18 00:06:53 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

A couple of small patches by Thomas Zeiser

Browse Source 
thomas.zeiser@rrze.uni-erlangen.de

The first one adds some checks to make sure a directory is readable before
trying to read it.

The second reverses the order of perging modules so that they are removed
last to first, which maybe seems more intuitive?

Kent
This commit is contained in:
sirdude
2012-09-10 21:01:33 +00:00
parent 5902e50b9e
commit ef0dd6bed3
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tcl/modulecmd.tcl
View File

@@ -20,7 +20,7 @@ echo "FATAL: module: Could not find tclsh in \$PATH or in standard directories"
#
# Some Global Variables.....
#
regsub {\$[^:]+:\s*(\S+)\s*\$} {$Revision: 1.146 $} {\1}\
regsub {\$[^:]+:\s*(\S+)\s*\$} {$Revision: 1.147 $} {\1}\
MODULES_CURRENT_VERSION
set g_debug 0 ;# Set to 1 to enable debugging
set error_count 0 ;# Start with 0 errors
@@ -1990,7 +1990,7 @@ proc listModules {dir mod {full_path 1} {sort_order {-dictionary}}\
set modulename [string range $element $sstart end]
if {[file isdirectory $element]} {
if {[file isdirectory $element] && [file readable $element]} {
set ModulesVersion ""
if {$g_debug} {
@@ -2477,7 +2477,7 @@ proc cmdModulePurge {{separator {}}} {
if {[info exists env(LOADEDMODULES)]} {
set list [split $env(LOADEDMODULES) $separator]
eval cmdModuleUnload $list
eval cmdModuleUnload [reverseList $list]
}
}
@@ -2563,7 +2563,7 @@ proc cmdModuleAvail {{mod {*}}} {
}
foreach dir [split $env(MODULEPATH) $g_def_separator] {
if {[file isdirectory "$dir"]} {
if {[file isdirectory "$dir"] && [file readable $dir]} {
set len [string length $dir]
set lrep [expr {($DEF_COLUMNS - $len - 2)/2}]
set rrep [expr {$DEF_COLUMNS - $len - 2 - $lrep}]