remove auto_path, source pkgIndex directly

svn path=/trunk/externals/tclpd/; revision=12608

1 files changed, 4 insertions, 1 deletions

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);
     }