From 8850adc37ac5c167db7065f9a2c3e13296ff816d Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sun, 18 Oct 2009 14:09:21 +0000
Subject: remove auto_path, source pkgIndex directly

svn path=/trunk/externals/tclpd/; revision=12608
---
 tcl_setup.cxx | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'tcl_setup.cxx')

diff --git a/tcl_setup.cxx b/tcl_setup.cxx
index b54914b..51f82c2 100644
--- a/tcl_setup.cxx
+++ b/tcl_setup.cxx
@@ -38,9 +38,12 @@ void tclpd_setup(void) {
     }
 
     Tcl_SetVar(tcl_for_pd, "TCLPD_DIR", dirresult, 0);
-    Tcl_Eval(tcl_for_pd, "set ::auto_path [linsert $::auto_path $TCLPD_DIR]");
     Tcl_Eval(tcl_for_pd, "package provide Tclpd " TCLPD_VERSION);
 
+    if(Tcl_Eval(tcl_for_pd, "source $TCLPD_DIR/pkgIndex.tcl") != TCL_OK) {
+        post("Tcl loader: error loading %s/pkgIndex.tcl", dirresult);
+    }
+
     if(Tcl_Eval(tcl_for_pd, "source $TCLPD_DIR/tcl.tcl") == TCL_OK) {
         post("Tcl loader: loaded %s/tcl.tcl", dirresult);
     }
-- 
cgit v1.2.1