2007-08-24 09:46:53 +00:00
|
|
|
--- tcl8.4.7/library/init.tcl.patch 2004-05-04 02:40:31.000000000 +0200
|
|
|
|
+++ tcl8.4.7/library/init.tcl 2007-07-17 09:56:42.000000000 +0200
|
|
|
|
@@ -39,13 +39,17 @@
|
|
|
|
# On Windows, it is not used
|
|
|
|
# On Macintosh it is "Tool Command Language" in the Extensions folder
|
|
|
|
|
|
|
|
-if {![info exists auto_path]} {
|
|
|
|
- if {[info exists env(TCLLIBPATH)]} {
|
|
|
|
- set auto_path $env(TCLLIBPATH)
|
|
|
|
- } else {
|
|
|
|
- set auto_path ""
|
|
|
|
- }
|
|
|
|
+if {[info exists env(TCLLIBPATH)]} {
|
|
|
|
+ set auto_path $env(TCLLIBPATH)
|
2007-09-26 07:27:21 +00:00
|
|
|
+} else {
|
2007-08-24 09:46:53 +00:00
|
|
|
+if {[file exists "/usr/lib64/tclX8.3"]} {
|
|
|
|
+ set auto_path "/usr/share/tcl8.4 /usr/share /usr/lib64 /usr/lib"
|
|
|
|
+} else {
|
|
|
|
+ set auto_path ""
|
|
|
|
}
|
2007-09-26 07:27:21 +00:00
|
|
|
+}
|
2007-08-24 09:46:53 +00:00
|
|
|
+
|
|
|
|
+
|
|
|
|
namespace eval tcl {
|
|
|
|
variable Dir
|
|
|
|
if {[info library] != ""} {
|