From c9a810f7641eacae2161c970f4679a52a48e469f Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Fri, 31 Jul 1998 15:54:26 +0000
Subject: remove temporary variables

---
 library/init.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/library/init.tcl b/library/init.tcl
index 3495a07..de9c30e 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -62,6 +62,12 @@ if {(![interp issafe]) && ($tcl_platform(platform) == "windows")} {
 	    }
 	}
     }
+    if {[info exists p]} {
+	unset p
+    }
+    if {[info exists u]} {
+	unset u
+    }
     if {![info exists env(COMSPEC)]} {
 	if {$tcl_platform(os) == {Windows NT}} {
 	    set env(COMSPEC) cmd.exe
-- 
cgit v0.12