* generic/tclVar.c (TclObjLookupVar): [Bug 735335] temporary fix,

	disabling usage of tclNsVarNameType.
	* tests/var.test (var-15.1): test for [Bug 735335]

1 files changed, 16 insertions, 1 deletions

diff --git a/tests/var.test b/tests/var.test
index 7fff348..8969384 100644
--- a/tests/var.test
+++ b/tests/var.test
@@ -14,7 +14,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: var.test,v 1.21 2003/03/24 00:49:00 msofer Exp $
+# RCS: @(#) $Id: var.test,v 1.22 2003/05/12 17:20:41 msofer Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -680,6 +680,21 @@ test var-14.1 {array names syntax} -body {
     array names foo bar baz snafu
 } -returnCodes 1 -match glob -result *
 
+test var-15.1 {segfault in [unset], [Bug 735335]} {
+    proc A { name } {
+	upvar $name var
+	set var $name
+    }
+    #
+    # Note that the variable name has to be 
+    # unused previously for the segfault to
+    # be triggered.
+    #
+    namespace eval test A useSomeUnlikelyNameHere
+    namespace eval test unset useSomeUnlikelyNameHere
+} {}
+
+
 catch {namespace delete ns}
 catch {unset arr}
 catch {unset v}