Tcl Source Code

Artifact 04a9eaa23d19f7979a61a3f23f673aff8a0a505c:

Attachment "1163357.patch" to ticket [1163357fff] added by dgp 2005-03-15 06:34:24.

---

Index: pkgIndex.tcl.in
===================================================================
RCS file: /cvsroot/tcl/thread/pkgIndex.tcl.in,v
retrieving revision 1.7
diff -u -r1.7 pkgIndex.tcl.in
--- pkgIndex.tcl.in	18 Dec 2004 13:26:02 -0000	1.7
+++ pkgIndex.tcl.in	14 Mar 2005 23:32:47 -0000
@@ -6,7 +6,7 @@
         load [file join $dir @PKG_LIB_FILE@] Thread
         if {[file readable [file join $dir .. lib ttrace.tcl]]} { 
             source [file join $dir .. lib ttrace.tcl]
-        } else {
+        } elseif {[file readable [file join $dir ttrace.tcl]]} { 
             source [file join $dir ttrace.tcl]
         }
     }]