diff options
| author | stanton <stanton> | 1998-07-24 18:58:48 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-07-24 18:58:48 (GMT) |
| commit | 1d379b3c51710e91653514e35f2c23106654be10 (patch) | |
| tree | 4197bda2b69e8093517938b6c1031cf40ae9b1fa /generic/tclInterp.c | |
| parent | fbfb70dbedb3ae467a17fa67d9d5315ef6faa8f7 (diff) | |
| download | tcl-1d379b3c51710e91653514e35f2c23106654be10.zip tcl-1d379b3c51710e91653514e35f2c23106654be10.tar.gz tcl-1d379b3c51710e91653514e35f2c23106654be10.tar.bz2 | |
unset tclDefaultLibrary in safe mode
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 1 |
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); |