diff options
| -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 ... |