Tcl package Thread source code

Artifact a0fe4b6f9b583570789b9ebcf2eaa2310f12c591:

Attachment "post-cmd-segfault.diff" to ticket [63c86edf71] added by bovine 2016-11-14 06:00:38.

---

diff --git a/generic/threadPoolCmd.c b/generic/threadPoolCmd.c
index 4fc3d86..7c80554 100644
--- a/generic/threadPoolCmd.c
+++ b/generic/threadPoolCmd.c
@@ -363,7 +363,9 @@ TpoolPostObjCmd(dummy, interp, objc, objv)
             goto usage;
         }
     }
-
+    if (ii + 2 != objc) {
+        goto usage;
+    }
     tpoolName = Tcl_GetString(objv[ii]);
     script    = Tcl_GetString(objv[ii+1]);
     len = objv[ii+1]->length;