small amend

tcltk · Feb 24, 2025 · e48a9c4 · e48a9c4
1 parent 8ab6382
commit e48a9c4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/generic/threadPoolCmd.c b/generic/threadPoolCmd.c
@@ -1251,6 +1251,7 @@ TpoolWorker(
 	Tcl_MutexUnlock(&tpoolPtr->mutex);
 	TpoolEval(interp, rPtr->script, rPtr->scriptLen, rPtr);
 	ckfree(rPtr->script);
+	rPtr->script = NULL;
 	Tcl_MutexLock(&tpoolPtr->mutex);
 	if (!rPtr->detached) {
 	    int isNew;