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 | ca847ce2da18c94af64979c1c20930beeeda9a80 (patch) | |
| tree | 77a1f8f2d8fcc32a26e689968b41c9144ca1f9f3 | |
| parent | c40badc1d3027d5db084ff9970bf3dc5377c2f0e (diff) | |
| parent | 17a41bd55ea615808876767444e9027328d89660 (diff) | |
| download | tcl-ca847ce2da18c94af64979c1c20930beeeda9a80.zip tcl-ca847ce2da18c94af64979c1c20930beeeda9a80.tar.gz tcl-ca847ce2da18c94af64979c1c20930beeeda9a80.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); } |