Artifact
d1e9eaf4d10b897f7062316bf98ce09f9b36da46:
Attachment "index.patch" to
ticket [918137ffff]
added by
dgp
2004-03-17 23:42:33.
Index: pkgIndex.tcl.in
===================================================================
RCS file: /cvsroot/tcl/thread/pkgIndex.tcl.in,v
retrieving revision 1.5
diff -u -r1.5 pkgIndex.tcl.in
--- pkgIndex.tcl.in 22 Dec 2003 21:23:44 -0000 1.5
+++ pkgIndex.tcl.in 17 Mar 2004 16:31:57 -0000
@@ -1,13 +1,13 @@
# Tcl package index file, version 1.1
-if {$::tcl_version >= 8.3} {
- if {$::tcl_version == 8.3} {
- set provides {@THREAD_VERSION_SUBSET83@}
- } else {
- set provides {@VERSION@}
- }
- package ifneeded Ttrace {@TTRACE_VERSION@} \
- [list source [file join $dir ttrace.tcl]]
- package ifneeded Thread $provides \
- [list load [file join $dir @thread_LIB_FILE@] Thread]
+if {![package vsatisfies [package provide Tcl] 8.3]} {return}
+if {[string equal 8.3 [package provide Tcl]]} {
+ package ifneeded Thread @THREAD_VERSION_SUBSET83@ \
+ [list load [file join $dir @thread_LIB_FILE@] Thread]
+} else {
+ package ifneeded Thread @VERSION@ \
+ [list load [file join $dir @thread_LIB_FILE@] Thread]
}
+package ifneeded Ttrace @TTRACE_VERSION@ \
+ [list source [file join $dir ttrace.tcl]]
+