package provides for the dynamic modification of a user’s environment via modulefiles.
| install_test_tcl (modules-5.1.1.tar.bz2) | : | install_test_tcl (modules-5.2.0.tar.bz2) |
|---|
| | |
| skipping to change at line 61 | | skipping to change at line 61 |
|---|
| if {$cmd eq "NOARG"} { | | if {$cmd eq "NOARG"} { |
| set arglist "" | | set arglist "" |
| } else { | | } else { |
| set arglist [split $cmd ","] | | set arglist [split $cmd ","] |
| # empty arg list, means one empty arg | | # empty arg list, means one empty arg |
| if {[llength $arglist] == 0} { | | if {[llength $arglist] == 0} { |
| lappend arglist {} | | lappend arglist {} |
| } | | } |
| } | | } |
| if {[catch { | | if {[catch { |
|
| set ret [eval $moduleproc $arglist] | | set ret [$moduleproc {*}$arglist] |
| if {$ret == 0} { | | if {$ret == 0} { |
| set code 1 | | set code 1 |
| } elseif {![string is integer $ret]} { | | } elseif {![string is integer $ret]} { |
| puts stdout $ret | | puts stdout $ret |
| } | | } |
| }]} { | | }]} { |
| set code 1 | | set code 1 |
| } | | } |
| } | | } |
| | |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 