diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-06-17 18:18:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-06-17 18:18:36 (GMT) |
| commit | b9e23e625db49329730aee16e407dcb2929a5160 (patch) | |
| tree | e20a5dae1f25d7b50e0c925da0f0c5e0ad8010b2 /generic | |
| parent | 0e2ec94c44280bfeaaf7d72d1d51b87ba6b41571 (diff) | |
| parent | a9083528ab684358217abe17be6bce6765817f6a (diff) | |
| download | tcl-b9e23e625db49329730aee16e407dcb2929a5160.zip tcl-b9e23e625db49329730aee16e407dcb2929a5160.tar.gz tcl-b9e23e625db49329730aee16e407dcb2929a5160.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclEnsemble.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 53b8bfb..e7e5c92 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -2707,7 +2707,11 @@ BuildEnsembleConfig( if (isNew) { Tcl_Obj *cmdObj, *cmdPrefixObj; - cmdObj = Tcl_NewStringObj(nsCmdName, -1); + TclNewObj(cmdObj); + Tcl_AppendStringsToObj(cmdObj, + ensemblePtr->nsPtr->fullName, + (ensemblePtr->nsPtr->parentPtr ? "::" : ""), + nsCmdName, NULL); cmdPrefixObj = Tcl_NewListObj(1, &cmdObj); Tcl_SetHashValue(hPtr, cmdPrefixObj); Tcl_IncrRefCount(cmdPrefixObj); |