diff options
| author | mig <mig> | 2011-05-08 13:00:24 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-05-08 13:00:24 (GMT) |
| commit | 598a2d7dd6d3830c59de31a4b4af8ccf1991fdc4 (patch) | |
| tree | a49dbe7b0f82d5ea276dbb619f7968584006c6b3 | |
| parent | a1c89c96202675838c881bc0abd1f1d23925cafd (diff) | |
| download | tcl-598a2d7dd6d3830c59de31a4b4af8ccf1991fdc4.zip tcl-598a2d7dd6d3830c59de31a4b4af8ccf1991fdc4.tar.gz tcl-598a2d7dd6d3830c59de31a4b4af8ccf1991fdc4.tar.bz2 | |
is this a proper fix? Or is it invalidating too much?
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index f2fd0b8..d196d96 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3757,6 +3757,9 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, CONST char *file, #define TclInvalidateNsCmdLookup(nsPtr) \ if ((nsPtr)->numExportPatterns) { \ (nsPtr)->exportLookupEpoch++; \ + } \ + if ((nsPtr)->commandPathLength) { \ + (nsPtr)->cmdRefEpoch++; \ } /* |