diff options
-rw-r--r-- | generic/tclOOInfo.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c index 5d27ac9..7435fff 100644 --- a/generic/tclOOInfo.c +++ b/generic/tclOOInfo.c @@ -622,7 +622,11 @@ InfoObjectMethodsCmd( } } else if (oPtr->methodsPtr) { if (scope == -1) { + /* + * Handle legacy-mode matching. [Bug 36e5517a6850] + */ int scopeFilter = flag | TRUE_PRIVATE_METHOD; + FOREACH_HASH(namePtr, mPtr, oPtr->methodsPtr) { if (mPtr->typePtr && (mPtr->flags & scopeFilter) == flag) { Tcl_ListObjAppendElement(NULL, resultObj, namePtr); @@ -1388,6 +1392,9 @@ InfoClassMethodsCmd( FOREACH_HASH_DECLS; if (scope == -1) { + /* + * Handle legacy-mode matching. [Bug 36e5517a6850] + */ int scopeFilter = flag | TRUE_PRIVATE_METHOD; FOREACH_HASH(namePtr, mPtr, &clsPtr->classMethods) { |