summaryrefslogtreecommitdiffstats
path: root/library/platform/shell.tcl
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2010-06-09 20:11:34 (GMT)
committerandreas_kupries <akupries@shaw.ca>2010-06-09 20:11:34 (GMT)
commit287867e4b0d766d1e514f94ed88ff084f3aa8e06 (patch)
tree3e6978d98aa3bff215ea0291684fbcc8e6291948 /library/platform/shell.tcl
parent47d68f982cf946a1cab3f9e7c45be564f63a9471 (diff)
downloadtcl-287867e4b0d766d1e514f94ed88ff084f3aa8e06.zip
tcl-287867e4b0d766d1e514f94ed88ff084f3aa8e06.tar.gz
tcl-287867e4b0d766d1e514f94ed88ff084f3aa8e06.tar.bz2
* library/platform/platform.tcl: Added OSX Intel 64bit
* library/platform/pkgIndex.tcl: Package updated to version 1.0.9. * unix/Makefile.in: * win/Makefile.in:
Diffstat (limited to 'library/platform/shell.tcl')
-rw-r--r--library/platform/shell.tcl7
1 files changed, 5 insertions, 2 deletions
diff --git a/library/platform/shell.tcl b/library/platform/shell.tcl
index 407e639..e0a129a 100644
--- a/library/platform/shell.tcl
+++ b/library/platform/shell.tcl
@@ -1,3 +1,4 @@
+
# -*- tcl -*-
# ### ### ### ######### ######### #########
## Overview
@@ -104,8 +105,10 @@ proc ::platform::shell::LOCATE {bv ov} {
# here. If the found package is wrapped we copy the code somewhere
# where the spawned shell will be able to read it.
- # Note: This code depends on the form of the 'provide' command
- # generated by tm.tcl. Keep them in sync. See Bug 2255235.
+ # This code is brittle, it needs has to adapt to whatever changes
+ # are made to the TM code, i.e. the provide statement generated by
+ # tm.tcl
+
set pl [package ifneeded platform [package require platform]]
set base [lindex $pl end]