diff options
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r-- | generic/tclVar.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 8fb89cd..97aa7ab 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -5713,8 +5713,8 @@ FreeNsVarName( { register Var *varPtr = objPtr->internalRep.twoPtrValue.ptr2; - if (TclIsVarInHash(varPtr)) { - if ((varPtr->refCount-- == 1) && TclIsVarUndefined(varPtr)) { + if (TclIsVarInHash(varPtr) && TclIsVarUndefined(varPtr)) { + if ((varPtr->refCount-- <= 1)) { CleanupVar(varPtr, NULL); } } |