Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| SHA1 Hash: | cc008ebab7eda7e7ebc783a2413afcc2105a080d |
|---|---|
| Date: | 2012-05-11 21:17:06 |
| Edited User: | bcsmith |
| Original User: | linuxfood |
| Edited Comment: | Filter out inline shell variables from tclConfig.sh because they break the build on CentOS 5 with TCL 8.4. (Edit: Fixed username.) |
| Original Comment: | Filter out inline shell variables from tclConfig.sh because they break the build on CentOS 5 with TCL 8.4. |
Tags And Properties
- branch=autosetup propagates to descendants
- comment=Filter out inline shell variables from tclConfig.sh because they break the build on CentOS 5 with TCL 8.4. (Edit: Fixed username.) added by [509e0da59e] on 2012-05-11 21:18:43
- sym-autosetup propagates to descendants
- sym-trunk cancelled
- user=bcsmith added by [509e0da59e] on 2012-05-11 21:18:43
Changes
Changes to autosetup/local.tcl
18 } 18 } 19 } 19 } 20 } 20 } 21 21 22 proc parse-tclconfig-sh-file {filename} { 22 proc parse-tclconfig-sh-file {filename} { 23 foreach line [split [readfile $filename] \n] { 23 foreach line [split [readfile $filename] \n] { 24 if {[regexp {^(TCL_[^=]*)=(.*)$} $line -> name value]} { 24 if {[regexp {^(TCL_[^=]*)=(.*)$} $line -> name value]} { > 25 set value [regsub -all {\$\{.*\}} $value ""] 25 set tclconfig($name) [string trim $value '] 26 set tclconfig($name) [string trim $value '] 26 } 27 } 27 } 28 } 28 return [array get tclconfig] 29 return [array get tclconfig] 29 } 30 }