diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-03-14 20:11:50 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-03-14 20:11:50 (GMT) |
| commit | fd31370c228b6dea905e445ccb9666c1894b4c52 (patch) | |
| tree | d0e78ea5c2f982aa9f68aab33b1954392e3ebbe4 | |
| parent | 54b14791b5842fe7e3c0ad6a77e2e6bd10237627 (diff) | |
| download | tcl-fd31370c228b6dea905e445ccb9666c1894b4c52.zip tcl-fd31370c228b6dea905e445ccb9666c1894b4c52.tar.gz tcl-fd31370c228b6dea905e445ccb9666c1894b4c52.tar.bz2 | |
* library/tm.tcl (::tcl::tm::Defaults): Fixed handling of
environment variable TCLX.y_TM_PATH, bad variable reference. See
[SF Tcl Bug 1448251]. Thanks to Julian Noble.
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | library/tm.tcl | 2 | ||||
| -rwxr-xr-x | unix/installManPage | 2 |
3 files changed, 8 insertions, 2 deletions
@@ -1,3 +1,9 @@ +2006-03-14 Andreas Kupries <andreask@activestate.com> + + * library/tm.tcl (::tcl::tm::Defaults): Fixed handling of + environment variable TCLX.y_TM_PATH, bad variable reference. See + [SF Tcl Bug 1448251]. Thanks to Julian Noble. + 2006-03-14 Vince Darley <vincentdarley@sourceforge.net> * win/tclWinFile.c: updated patch to deal with 'file writable' diff --git a/library/tm.tcl b/library/tm.tcl index 2830ea6..db1f361 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -323,7 +323,7 @@ proc ::tcl::tm::Defaults {} { set sep ":" } for {set n $minor} {$n >= 0} {incr n -1} { - set ev TCL${major}.{$n}_TM_PATH + set ev TCL${major}.${n}_TM_PATH if {[info exists env($ev)]} { foreach p [split $env($ev) $sep] { path add $p diff --git a/unix/installManPage b/unix/installManPage index 3bc3bd7..fddbca7 100755 --- a/unix/installManPage +++ b/unix/installManPage @@ -29,7 +29,7 @@ NAMES=`sed -n ' # Look for a line, that starts with .SH NAME # optionally allow NAME to be surrounded # by quotes. - /^\.SH "\?NAME"\?/{ + /^\.SH NAME/{ # Read next line n # Remove all commas ... |