summaryrefslogtreecommitdiffstats
path: root/generic/tclNamesp.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclNamesp.c')
-rw-r--r--generic/tclNamesp.c16
1 files changed, 1 insertions, 15 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index 89dfbab..88ad3bb 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -21,7 +21,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclNamesp.c,v 1.39 2004/05/23 22:58:23 msofer Exp $
+ * RCS: @(#) $Id: tclNamesp.c,v 1.40 2004/05/25 19:45:14 msofer Exp $
*/
#include "tclInt.h"
@@ -2324,20 +2324,6 @@ Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags)
simpleName);
if (entryPtr != NULL) {
varPtr = (Var *) Tcl_GetHashValue(entryPtr);
-
- /* Fix for [Bug 959052].
- * We might have found a "zombie" variable: it is in the hash
- * table, but the variable is unset and it was not fixed with
- * a call to [variable]. In particular, zombies created by
- * [trace], [upvar], [global] or a reference in a
- * tclNsVarNameType obj should never be found.
- */
-
- if (TclIsVarUndefined(varPtr)
- && !(varPtr->flags & VAR_NAMESPACE_VAR)
- && !(flags & (TCL_GLOBAL_ONLY|TCL_NAMESPACE_ONLY))) {
- varPtr = NULL;
- }
}
}
}