diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-06-13 17:58:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-06-13 17:58:48 (GMT) |
| commit | 1ebe878444abb6e6e9a919c99e6f1736353917ef (patch) | |
| tree | c797399c842d37e8057252db987348fac34f496a | |
| parent | 1cd98b93bd922cc624acf57f7547984606f4f565 (diff) | |
| download | tcl-1ebe878444abb6e6e9a919c99e6f1736353917ef.zip tcl-1ebe878444abb6e6e9a919c99e6f1736353917ef.tar.gz tcl-1ebe878444abb6e6e9a919c99e6f1736353917ef.tar.bz2 | |
Fix Bug 8b9854c3d8. Now 4 test failures require examination.
| -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 dfffe12..3352d1f 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -2694,7 +2694,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); |