diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-09-14 14:58:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-09-14 14:58:06 (GMT) |
| commit | 941ed744af07b52dc23da037860e97af77df042f (patch) | |
| tree | 632f548cdfc851bc84509d5961ae499e8760a853 /generic | |
| parent | 01cdf286cdaf695c134c384cc810de244b5308d3 (diff) | |
| download | tcl-941ed744af07b52dc23da037860e97af77df042f.zip tcl-941ed744af07b52dc23da037860e97af77df042f.tar.gz tcl-941ed744af07b52dc23da037860e97af77df042f.tar.bz2 | |
Only invalidate the namespace path once on command creation. [1519940]
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index f2490ef..f06c029 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -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: tclBasic.c,v 1.268 2007/09/13 15:27:06 das Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.269 2007/09/14 14:58:07 dkf Exp $ */ #include "tclInt.h" @@ -1981,7 +1981,6 @@ Tcl_CreateObjCommand( */ TclInvalidateNsCmdLookup(nsPtr); - TclInvalidateNsPath(nsPtr); } cmdPtr = (Command *) ckalloc(sizeof(Command)); Tcl_SetHashValue(hPtr, cmdPtr); |