From 1d379b3c51710e91653514e35f2c23106654be10 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Fri, 24 Jul 1998 18:58:48 +0000
Subject: unset tclDefaultLibrary in safe mode

---
 generic/tclInterp.c | 1 +
 1 file changed, 1 insertion(+)

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);
     
-- 
cgit v0.12