diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-03-06 12:05:31 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-03-06 12:05:31 (GMT) |
| commit | 5a74f345ac466a0a61b8c46bdcb3576848e6f987 (patch) | |
| tree | 36326e5ac9521c63c691ea4ef91c5f068827e31a /generic/tclBasic.c | |
| parent | 0175377f5e1c38829cb31dfa14ee9d28714e9a57 (diff) | |
| download | tcl-5a74f345ac466a0a61b8c46bdcb3576848e6f987.zip tcl-5a74f345ac466a0a61b8c46bdcb3576848e6f987.tar.gz tcl-5a74f345ac466a0a61b8c46bdcb3576848e6f987.tar.bz2 | |
small amend to [910d67a229fe7f65]: additional corner case (see the test namespace-52.13)
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 93c3b43..ffd69c4 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4732,7 +4732,7 @@ TEOV_NotFound( currNsPtr = varFramePtr->nsPtr; if ((currNsPtr == NULL) || (currNsPtr->unknownHandlerPtr == NULL) || - (qualLen > 2 && (*qualName == ':') && (*(qualName+1) == ':')) + (qualLen > 2 && memchr(qualName, ':', qualLen)) /* fast check for NS:: */ ) { /* * first try to find namespace unknown handler of the namespace |