diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:20:50 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:20:50 (GMT) |
commit | e52e074e4f028efd84c0fd8e54af331c55bf820c (patch) | |
tree | 46c2a557aac8d1cd8cc3e0e97c40e5b19c2ebe1c /generic | |
parent | 0b5a1c79b7ec387d0ff8cc21109c4a74d10f9b16 (diff) | |
download | tcl-e52e074e4f028efd84c0fd8e54af331c55bf820c.zip tcl-e52e074e4f028efd84c0fd8e54af331c55bf820c.tar.gz tcl-e52e074e4f028efd84c0fd8e54af331c55bf820c.tar.bz2 |
Add TCL_CREATE_NS_IF_UNKNOWN back into Tcl_CreateEnsemble().
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclEnsemble.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 92c0c76..51cf61d 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -732,7 +732,6 @@ Tcl_CreateEnsemble( Tcl_Namespace *namespacePtr, int flags) { - Tcl_Obj *nameObj = NULL; Namespace *nsPtr = (Namespace *)namespacePtr, *foundNsPtr, *altNsPtr, *actualNsPtr; const char * simpleName; @@ -741,11 +740,8 @@ Tcl_CreateEnsemble( nsPtr = (Namespace *) TclGetCurrentNamespace(interp); } - TclGetNamespaceForQualName(interp, name, nsPtr, 0, + TclGetNamespaceForQualName(interp, name, nsPtr, TCL_CREATE_NS_IF_UNKNOWN, &foundNsPtr, &altNsPtr, &actualNsPtr, &simpleName); - if (nameObj != NULL) { - TclDecrRefCount(nameObj); - } return TclCreateEnsembleInNs(interp, simpleName, (Tcl_Namespace *) foundNsPtr, (Tcl_Namespace *) nsPtr, flags); } |