diff options
| -rw-r--r-- | generic/tclNamesp.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 6f24e91..65b91f1 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -3192,6 +3192,9 @@ NamespaceChildrenCmd( if (strncmp(pattern, nsPtr->fullName, length) != 0) { goto searchDone; } + /* + * Global namespace members are prefixed with "::", others not. Ticket [63449c0514] + */ if (FindChildEntry(nsPtr, (nsPtr != globalNsPtr ? 2 : 0) + pattern+length) != NULL) { Tcl_ListObjAppendElement(NULL, listPtr, Tcl_NewStringObj(pattern, -1)); |