"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "testsuite/modules.70-maint/390-state.exp" between
modules-5.1.1.tar.bz2 and modules-5.2.0.tar.bz2

About: The Environment Modules package provides for the dynamic modification of a user’s environment via modulefiles.

390-state.exp  (modules-5.1.1.tar.bz2)	:	390-state.exp  (modules-5.2.0.tar.bz2)
skipping to change at line 36		skipping to change at line 36
set statelist [list always_read_full_file autoinit clock_seconds cmdline command name domainname error_count extra_siteconfig_loaded false_rendered force hiding_ threshold inhibit_errreport inhibit_interp init_error_report is_stderr_tty is_wi n kernelversion lm_info_cached machine modulefile nodename os osversion paginate path_separator report_format reportfd return_false shell shelltype siteconfig_l oaded sub1_separator sub2_separator subcmd subcmd_args supported_shells tcl_ext_ lib_loaded tcl_version term_columns usergroups username]		set statelist [list always_read_full_file autoinit clock_seconds cmdline command name domainname error_count extra_siteconfig_loaded false_rendered force hiding_ threshold inhibit_errreport inhibit_interp init_error_report is_stderr_tty is_wi n kernelversion lm_info_cached machine modulefile nodename os osversion paginate path_separator report_format reportfd return_false shell shelltype siteconfig_l oaded sub1_separator sub2_separator subcmd subcmd_args supported_shells tcl_ext_ lib_loaded tcl_version term_columns usergroups username]
#		#
# global state test		# global state test
#		#
set tserr "$vers_reportre\n\n$state_header"		set tserr "$vers_reportre\n\n$state_header"
if {[auto_execok uname] eq {} || [auto_execok domainname] eq {}} {		if {[auto_execok uname] eq {} || [auto_execok domainname] eq {}} {
append tserr "(\nWARNING: Command '\\S+' cannot be found)+"		append tserr "(\nWARNING: Command '\\S+' cannot be found)+"
}		}
		if {$group_name_fetch_failed} {
		if {$install_libtclenvmodules eq {y}} {
		append tserr "(\nWARNING: couldn't find name for group id \"\\S+\": Succ
		ess)+"
		} else {
		append tserr "(\nWARNING: .*\n .*/id: cannot find name for group ID \\S
		+)+"
		}
		}
foreach param $statelist {		foreach param $statelist {
append tserr "\n$param\\s+.*"		append tserr "\n$param\\s+.*"
}		}
append tserr "\n\n$envvar_header"		append tserr "\n\n$envvar_header"
set envvar_list [list]		set envvar_list [list]
foreach var [list LOADEDMODULES _LMFILES_ MODULE* __MODULES_* __MODULES_SHARE_* *_module*] {		foreach var [list LOADEDMODULES _LMFILES_ MODULE* __MODULES_* __MODULES_SHARE_* *_module*] {
set envvar_list [concat $envvar_list [array names env -glob $var]]		set envvar_list [concat $envvar_list [array names env -glob $var]]
}		}
foreach envvar [lsort -unique $envvar_list] {		foreach envvar [lsort -unique $envvar_list] {
append tserr "\n[regsub -all {([\\${}*?()+\[\]])} $envvar {\\\1}]\\s+[regsub -all {([\\${}*?()+\[\]])} $env($envvar) {\\\1}]"		append tserr "\n[regsub -all {([\\${}*?()+\[\]])} $envvar {\\\1}]\\s+[regsub -all {([\\${}*?()+\[\]])} $env($envvar) {\\\1}]"
End of changes. 1 change blocks.
0 lines changed or deleted		9 lines changed or added

---