fix for [910d67a229fe7f65]: search of `namespace unknown` handler fixed: first try to find namespace unknown handler of the namespace of executed command if available;

this elementary fixes following bug (additionally prevents to call slowly global "::unknown" for known/loaded namespaces with registered unknown handler)

1 files changed, 25 insertions, 4 deletions

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 8dde621..93c3b43 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -4726,12 +4726,33 @@ TEOV_NotFound(
 				 * unknown command handler for the current
 				 * namespace (TIP 181). */
     Namespace *savedNsPtr = NULL;
+    
+    int qualLen;
+    const char *qualName = TclGetStringFromObj(objv[0], &qualLen);
 
     currNsPtr = varFramePtr->nsPtr;
-    if ((currNsPtr == NULL) || (currNsPtr->unknownHandlerPtr == NULL)) {
-	currNsPtr = iPtr->globalNsPtr;
-	if (currNsPtr == NULL) {
-	    Tcl_Panic("Tcl_EvalObjv: NULL global namespace pointer");
+    if ((currNsPtr == NULL) || (currNsPtr->unknownHandlerPtr == NULL) ||
+	(qualLen > 2 && (*qualName == ':') && (*(qualName+1) == ':'))
+    ) {
+	/* 
+	 * first try to find namespace unknown handler of the namespace
+	 * of executed command if available:
+	 */
+	Namespace *dummyNsPtr;
+	const char *simpleName;
+
+	(void) TclGetNamespaceForQualName(interp, qualName, currNsPtr,
+	    TCL_NAMESPACE_ONLY, &currNsPtr, &dummyNsPtr, &dummyNsPtr,
+	    &simpleName);
+	if ((currNsPtr == NULL) || (simpleName == NULL) ||
+	    currNsPtr->unknownHandlerPtr == NULL ||
+	    (currNsPtr->flags & (NS_DYING | NS_DEAD))
+	) {
+	    /* fallback to the global unknown */
+	    currNsPtr = iPtr->globalNsPtr;
+	    if (currNsPtr == NULL) {
+		Tcl_Panic("TEOV_NotFound: NULL global namespace pointer");
+	    }
 	}
     }