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/tclExecute.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/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 1389382..8ddefda 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4413,8 +4413,8 @@ TEBCresume( savedNsPtr = iPtr->varFramePtr->nsPtr; iPtr->varFramePtr->nsPtr = (Namespace *) nsPtr; otherPtr = TclObjLookupVarEx(interp, OBJ_AT_TOS, NULL, - (TCL_NAMESPACE_ONLY | TCL_LEAVE_ERR_MSG), "access", - /*createPart1*/ 1, /*createPart2*/ 1, &varPtr); + (TCL_NAMESPACE_ONLY|TCL_LEAVE_ERR_MSG|TCL_AVOID_RESOLVERS), + "access", /*createPart1*/ 1, /*createPart2*/ 1, &varPtr); iPtr->varFramePtr->nsPtr = savedNsPtr; if (!otherPtr) { TRACE_ERROR(interp); |