diff options
| author | andreas_kupries <akupries@shaw.ca> | 2010-06-09 20:11:34 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2010-06-09 20:11:34 (GMT) |
| commit | 287867e4b0d766d1e514f94ed88ff084f3aa8e06 (patch) | |
| tree | 3e6978d98aa3bff215ea0291684fbcc8e6291948 /library/platform/shell.tcl | |
| parent | 47d68f982cf946a1cab3f9e7c45be564f63a9471 (diff) | |
| download | tcl-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.tcl | 7 |
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] |