From fd31370c228b6dea905e445ccb9666c1894b4c52 Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Tue, 14 Mar 2006 20:11:50 +0000 Subject: * 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. --- ChangeLog | 6 ++++++ library/tm.tcl | 2 +- unix/installManPage | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 47f900d..e5e5aff 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-03-14 Andreas Kupries + + * 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 * 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 ... -- cgit v0.12