diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-07-07 10:08:44 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-07-07 10:08:44 (GMT) |
commit | 38f4a53699309fdec415cf81e5c2ba6137ff8cf4 (patch) | |
tree | 08157cc1abfdc178d86fa2411644a51a26e50bde /generic/tclNamesp.c | |
parent | cb3f1f4d66a91e4efc123a4518e8fa171af58145 (diff) | |
download | tcl-38f4a53699309fdec415cf81e5c2ba6137ff8cf4.zip tcl-38f4a53699309fdec415cf81e5c2ba6137ff8cf4.tar.gz tcl-38f4a53699309fdec415cf81e5c2ba6137ff8cf4.tar.bz2 |
Expose the AVOID_RESOLVERS flag to [namespace upvar] implementations, which seem to need it.bug_1493a43044
Diffstat (limited to 'generic/tclNamesp.c')
-rw-r--r-- | generic/tclNamesp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 2c50a60..5930859 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -4538,8 +4538,8 @@ NamespaceUpvarCmd( savedNsPtr = (Tcl_Namespace *) iPtr->varFramePtr->nsPtr; iPtr->varFramePtr->nsPtr = (Namespace *) nsPtr; otherPtr = TclObjLookupVarEx(interp, objv[0], NULL, - (TCL_NAMESPACE_ONLY | TCL_LEAVE_ERR_MSG), "access", - /*createPart1*/ 1, /*createPart2*/ 1, &arrayPtr); + (TCL_NAMESPACE_ONLY|TCL_LEAVE_ERR_MSG|TCL_AVOID_RESOLVERS), + "access", /*createPart1*/ 1, /*createPart2*/ 1, &arrayPtr); iPtr->varFramePtr->nsPtr = (Namespace *) savedNsPtr; if (otherPtr == NULL) { return TCL_ERROR; |