diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-17 20:18:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-17 20:18:25 (GMT) |
| commit | 1166cd31795ae95c0ee8ed21c248a6ba1c78212d (patch) | |
| tree | 8a7693db4bfa982aa36ef3806c7c91e3ef42e169 | |
| parent | 257f4ada5c10c8baf4c123f22daba65b64dd0db1 (diff) | |
| download | tcl-1166cd31795ae95c0ee8ed21c248a6ba1c78212d.zip tcl-1166cd31795ae95c0ee8ed21c248a6ba1c78212d.tar.gz tcl-1166cd31795ae95c0ee8ed21c248a6ba1c78212d.tar.bz2 | |
temporarily removed unset of ::tclDefaultLibrary for sake of testing.
| -rw-r--r-- | generic/tclInterp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index b5ef40f..5226c05 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.39 2004/06/11 22:39:29 dgp Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.40 2004/06/17 20:18:25 dgp Exp $ */ #include "tclInt.h" @@ -72,7 +72,7 @@ static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\ }\n\ catch {\n\ lappend dirs $tclDefaultLibrary\n\ - unset tclDefaultLibrary\n\ +#unset tclDefaultLibrary\n\ }\n\ catch {\n\ set dirs [concat $dirs $tcl_libPath]\n\ |