diff options
| author | dkf <dkf@noemail.net> | 2009-01-29 16:08:38 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2009-01-29 16:08:38 (GMT) |
| commit | 09d04098393ce8b138a320f1759a6d9900849d81 (patch) | |
| tree | 44a374fa144f69ab1c3db6d8936da938546c847e /generic/tclNamesp.c | |
| parent | 7f2b46a4322227008357d9fa5ab2ad46411ba444 (diff) | |
| download | tcl-09d04098393ce8b138a320f1759a6d9900849d81.zip tcl-09d04098393ce8b138a320f1759a6d9900849d81.tar.gz tcl-09d04098393ce8b138a320f1759a6d9900849d81.tar.bz2 | |
Backport fix for [Bug 2519474]
FossilOrigin-Name: a14bcc8666ff64651b6021ac29bc46e45f55738f
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index dab46fc..6368022 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -23,7 +23,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.162.2.3 2008/07/21 19:38:19 andreas_kupries Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.162.2.4 2009/01/29 16:08:39 dkf Exp $ */ #include "tclInt.h" @@ -2415,7 +2415,8 @@ Tcl_FindCommand( */ cmdPtr = NULL; - if (cxtNsPtr->commandPathLength!=0 && strncmp(name, "::", 2)) { + if (cxtNsPtr->commandPathLength!=0 && strncmp(name, "::", 2) + && !(flags & TCL_NAMESPACE_ONLY)) { int i; Namespace *pathNsPtr, *realNsPtr, *dummyNsPtr; |