Tcl Source Code

Artifact 4d8f4842756dad489c9e612153e60ca963ceb541:

Attachment "tcl-pkgcache.patch" to ticket [680169ffff] added by jenglish 2003-10-22 04:06:03.

---

--- library/init.tcl.pkgcache.old	2003-10-21 14:11:36.000000000 -0700
+++ library/init.tcl	2003-10-21 12:25:53.000000000 -0700
@@ -67,6 +67,12 @@
 	    }
 	}
     }
+    if {[info library] != ""} {
+	variable pkgCache [file join [info library] pkgCache.tcl]
+	if {[file exists $pkgCache]} { 
+	    source $pkgCache
+	}
+    }
 }
   
 # Windows specific end of initialization