diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-11-29 18:35:51 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-11-29 18:35:51 (GMT) |
commit | c47ba70f4545f7c961160a6beb0a466e3bfd5532 (patch) | |
tree | 4f5b52b847fdcf27822711f0dd50c6b84b140b68 /generic/tclEnsemble.c | |
parent | 4190501ec7f6c70650e90c3d9f885a938d3e7795 (diff) | |
download | tcl-c47ba70f4545f7c961160a6beb0a466e3bfd5532.zip tcl-c47ba70f4545f7c961160a6beb0a466e3bfd5532.tar.gz tcl-c47ba70f4545f7c961160a6beb0a466e3bfd5532.tar.bz2 |
Add TCL_CREATE_NS_IF_UNKNOWN back into Tcl_CreateEnsemble().
Diffstat (limited to 'generic/tclEnsemble.c')
-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 c5ccd22..a981851 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); } |