diff options
author | stanton <stanton@noemail.net> | 1998-07-24 18:58:48 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1998-07-24 18:58:48 (GMT) |
commit | 1bcd9d03807387fce0bb8aeb2e8858cb61cf47ea (patch) | |
tree | 4197bda2b69e8093517938b6c1031cf40ae9b1fa /generic | |
parent | 8728c4e41fd3d1164c9ecf74e24323a92bfd1b12 (diff) | |
download | tcl-1bcd9d03807387fce0bb8aeb2e8858cb61cf47ea.zip tcl-1bcd9d03807387fce0bb8aeb2e8858cb61cf47ea.tar.gz tcl-1bcd9d03807387fce0bb8aeb2e8858cb61cf47ea.tar.bz2 |
unset tclDefaultLibrary in safe mode
FossilOrigin-Name: 3c615d7afde8bc843380ba8d205b5f9a6838db08
Diffstat (limited to 'generic')
-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); |