summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorstanton <stanton>1998-07-24 18:58:48 (GMT)
committerstanton <stanton>1998-07-24 18:58:48 (GMT)
commit1d379b3c51710e91653514e35f2c23106654be10 (patch)
tree4197bda2b69e8093517938b6c1031cf40ae9b1fa
parentfbfb70dbedb3ae467a17fa67d9d5315ef6faa8f7 (diff)
downloadtcl-1d379b3c51710e91653514e35f2c23106654be10.zip
tcl-1d379b3c51710e91653514e35f2c23106654be10.tar.gz
tcl-1d379b3c51710e91653514e35f2c23106654be10.tar.bz2
unset tclDefaultLibrary in safe mode
-rw-r--r--generic/tclInterp.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 6cf3f66..f5908d9 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -402,6 +402,7 @@ Tcl_MakeSafe(interp)
* (the only one remaining is [info nameofexecutable])
*/
+ Tcl_UnsetVar(interp, "tclDefaultLibrary", TCL_GLOBAL_ONLY);
Tcl_UnsetVar(interp, "tcl_library", TCL_GLOBAL_ONLY);
Tcl_UnsetVar(interp, "tcl_pkgPath", TCL_GLOBAL_ONLY);