150-access-init.exp (modules-5.1.1.tar.bz2) | : | 150-access-init.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 49 | skipping to change at line 49 | |||
change_file_perms $tclextlib_file ugo-rx | change_file_perms $tclextlib_file ugo-rx | |||
lappend ans "DEBUG setState: cmdline set to '$MODULECMD sh --no-pager -D -V' " | lappend ans "DEBUG setState: cmdline set to '$MODULECMD sh --no-pager -D -V' " | |||
if {$::install_multilibsupport eq {y}} { | if {$::install_multilibsupport eq {y}} { | |||
lappend ans "DEBUG setState: machine set to '$::tcl_platform(machine)'" | lappend ans "DEBUG setState: machine set to '$::tcl_platform(machine)'" | |||
} | } | |||
lappend ans "DEBUG setConf: tcl_ext_lib set to '$tclextlib_file'" | lappend ans "DEBUG setConf: tcl_ext_lib set to '$tclextlib_file'" | |||
lappend ans "DEBUG setConf: siteconfig set to '$siteconfig_filere'(\\nDEBUG sourceSiteConfig: Source site configuration \\($siteconfig_filere\\))?(\\nDEBUG setState: siteconfig_loaded set to '1')?" | lappend ans "DEBUG setConf: siteconfig set to '$siteconfig_filere'(\\nDEBUG sourceSiteConfig: Source site configuration \\($siteconfig_filere\\))?(\\nDEBUG setState: siteconfig_loaded set to '1')?" | |||
lappend ans "DEBUG setConf: locked_configs set to '$install_lockedconfigs'" | lappend ans "DEBUG setConf: locked_configs set to '$install_lockedconfigs'" | |||
lappend ans "DEBUG setState: supported_shells set to 'sh bash ksh zsh csh tc sh fish cmd tcl perl python ruby lisp cmake r'" | lappend ans "DEBUG setState: supported_shells set to 'sh bash ksh zsh csh tc sh fish cmd tcl perl python ruby lisp cmake r'" | |||
lappend ans "DEBUG setState: shell set to 'sh'" | lappend ans "DEBUG setState: shell set to 'sh'" | |||
lappend ans "DEBUG setState: shelltype set to 'sh'" | ||||
lappend ans "DEBUG setState: subcmd set to ''" | lappend ans "DEBUG setState: subcmd set to ''" | |||
lappend ans "DEBUG setState: subcmd_args set to ''" | lappend ans "DEBUG setState: subcmd_args set to ''" | |||
lappend ans "DEBUG setState: init_error_report set to '1'" | lappend ans "DEBUG setState: init_error_report set to '1'" | |||
lappend ans "DEBUG setConf: verbosity set to 'debug'" | lappend ans "DEBUG setConf: verbosity set to 'debug'" | |||
lappend ans "DEBUG setConf: term_background set to '$install_termbg'" | lappend ans "DEBUG setConf: term_background set to '$install_termbg'" | |||
lappend ans "(DEBUG initConfColors: Ignore invalid default.*\\n)?DEBUG setCo nf: colors set to '.*'" | lappend ans "(DEBUG initConfColors: Ignore invalid default.*\\n)?DEBUG setCo nf: colors set to '.*'" | |||
lappend ans "DEBUG setConf: color set to '0'" | lappend ans "DEBUG setConf: color set to '0'" | |||
lappend ans "DEBUG setConf: pager set to '$install_pagercmd'" | lappend ans "DEBUG setConf: pager set to '$install_pagercmd'" | |||
lappend ans "DEBUG setState: paginate set to '0'" | lappend ans "DEBUG setState: paginate set to '0'" | |||
lappend ans "DEBUG setState: report_format set to 'regular'" | lappend ans "DEBUG setState: report_format set to 'regular'" | |||
lappend ans "DEBUG setState: reportfd set to 'stderr'" | lappend ans "DEBUG setState: reportfd set to 'stderr'" | |||
lappend ans "DEBUG setState: timer set to '0'" | ||||
lappend ans $vers_reportre | lappend ans $vers_reportre | |||
testouterr_cmd_re sh {--no-pager -D -V} {} [join $ans \n] | testouterr_cmd_re sh {--no-pager -D -V} {} [join $ans \n] | |||
restore_file_perms $tclextlib_file | restore_file_perms $tclextlib_file | |||
# replace Tcl extension library by a non lib file | # replace Tcl extension library by a non lib file | |||
file rename $tclextlib_file $tclextlib_file.orig | file rename $tclextlib_file $tclextlib_file.orig | |||
file copy lib/envmodules.c $tclextlib_file | file copy lib/envmodules.c $tclextlib_file | |||
set tclextlib_file_abs_re [regsub -all "\(\[.+?\]\)" [file normalize $tclext lib_file] {\\\1}] | set tclextlib_file_abs_re [regsub -all "\(\[.+?\]\)" [file normalize $tclext lib_file] {\\\1}] | |||
if {$tcl_platform(os) eq {Darwin}} { | if {$tcl_platform(os) eq {Darwin}} { | |||
set tserr "$error_msgs: dlopen\\\($tclextlib_file_abs_re,.*" | set tserr "$error_msgs: dlopen\\\($tclextlib_file_abs_re,.*" | |||
End of changes. 2 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |