summaryrefslogtreecommitdiffstats
path: root/library/tm.tcl
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2008-11-10 17:57:10 (GMT)
committerandreas_kupries <akupries@shaw.ca>2008-11-10 17:57:10 (GMT)
commit1a689ba82658d24a00cc016d1175dc7ed959a167 (patch)
tree2220b38ad18f3738d8b91a666ee3e0244ec75a5f /library/tm.tcl
parentb3062216f2dec1c08dbe11dc8bafd35dff15af20 (diff)
downloadtcl-1a689ba82658d24a00cc016d1175dc7ed959a167.zip
tcl-1a689ba82658d24a00cc016d1175dc7ed959a167.tar.gz
tcl-1a689ba82658d24a00cc016d1175dc7ed959a167.tar.bz2
* doc/platform_shell.n: Fixed [Bug 2255235], reported by Ulrich
* library/platform/pkgIndex.tcl: Ring <uring@users.sourceforge.net>. * library/platform/shell.tcl: Updated the LOCATE command in the * library/tm.tcl: package 'platform::shell' to handle the new form * unix/Makefile.in: of 'provide' commands generated by tm.tcl. Bumped * win/Makefile.in: package to version 1.1.4. Added cross-references to the relevant parts of the code to avoid future desynchronization.
Diffstat (limited to 'library/tm.tcl')
-rw-r--r--library/tm.tcl10
1 files changed, 10 insertions, 0 deletions
diff --git a/library/tm.tcl b/library/tm.tcl
index 24ddb86..c5db437 100644
--- a/library/tm.tcl
+++ b/library/tm.tcl
@@ -254,6 +254,16 @@ proc ::tcl::tm::UnknownHandler {original name args} {
# means something else without the namespace
# specifier.
+ # NOTE. When making changes to the format of the
+ # provide command generated below CHECK that the
+ # 'LOCATE' procedure in core file
+ # 'platform/shell.tcl' still understands it, or,
+ # if not, update its implementation appropriately.
+ #
+ # Right now LOCATE's implementation assumes that
+ # the path of the package file is the last element
+ # in the list.
+
package ifneeded $pkgname $pkgversion \
"[::list package provide $pkgname $pkgversion];[::list source -encoding utf-8 $file]"