diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2005-11-11 22:20:24 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2005-11-11 22:20:24 (GMT) |
| commit | 2dc0d2ce91e0ef65ce9cbc9c886b63f8e9c26a0c (patch) | |
| tree | 9b191cc644d578722593c6fe1aef96df90437dca /generic/tclObj.c | |
| parent | b358779c9f4c39506f84b383f43f70736a410879 (diff) | |
| download | tcl-2dc0d2ce91e0ef65ce9cbc9c886b63f8e9c26a0c.zip tcl-2dc0d2ce91e0ef65ce9cbc9c886b63f8e9c26a0c.tar.gz tcl-2dc0d2ce91e0ef65ce9cbc9c886b63f8e9c26a0c.tar.bz2 | |
* generic/tclBasic.c (Tcl_DeleteCommandFromToken):
* generic/tclObj.c (Tcl_GetCommandFromObj): bump the cmd epoch
early to insure that cached references to this command are
invalidated. Partial fix for [Bug 1352734] - at least insures that
namespace-51.13 does not cause a panic. The test is still marked
as knownbug, pending resolution of what is actually the correct
return value ([Bug 1354540])
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index f5bee03..229c2ab 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclObj.c,v 1.97 2005/11/02 00:55:06 dkf Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.98 2005/11/11 22:20:24 msofer Exp $ */ #include "tclInt.h" @@ -3503,7 +3503,7 @@ Tcl_GetCommandFromObj( && (resPtr->refNsId == currNsPtr->nsId) && (resPtr->refNsCmdEpoch == currNsPtr->cmdRefEpoch)) { cmdPtr = resPtr->cmdPtr; - if (cmdPtr->cmdEpoch != resPtr->cmdEpoch) { + if ((cmdPtr->cmdEpoch != resPtr->cmdEpoch) || (cmdPtr->hPtr == NULL)) { cmdPtr = NULL; } } |