diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-05-21 10:51:07 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-05-21 10:51:07 (GMT) |
| commit | 5f249ddbd5d4666dd1a87d79014d4642e5f9d551 (patch) | |
| tree | 77a1f8f2d8fcc32a26e689968b41c9144ca1f9f3 | |
| parent | e055d3cdb5ac22d967c59dffd452c743d37e9063 (diff) | |
| parent | 561eb3f0582bdd819d74951a8a7ae933cfcafd69 (diff) | |
| download | tcl-5f249ddbd5d4666dd1a87d79014d4642e5f9d551.zip tcl-5f249ddbd5d4666dd1a87d79014d4642e5f9d551.tar.gz tcl-5f249ddbd5d4666dd1a87d79014d4642e5f9d551.tar.bz2 | |
merge 8.7
| -rw-r--r-- | generic/tclOOCall.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index f13aa99..c5aa075 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -935,7 +935,7 @@ AddSimpleChainToCallContext( contextCls, methodNameObj, cbPtr, doneFilters, flags, filterDecl); } - if (!blockedUnexported) { + if (!blockedUnexported && oPtr->selfCls) { foundPrivate |= AddSimpleClassChainToCallContext(oPtr->selfCls, methodNameObj, cbPtr, doneFilters, flags, filterDecl); } |