Tcl Source Code: Artifact [3cb8822f75]

Artifact 3cb8822f75d2579e7b72aba74530926c2fa9d7d8:

Attachment "tclVar.diff" to ticket [709340ffff] added by coldstore 2003-03-28 20:51:12.

2896c2896,2900
< 	if (TCL_ERROR == CallVarTraces(iPtr, arrayPtr, varPtr, varName, NULL,
---
> 	Tcl_Obj *traceList;
> 	traceList = Tcl_NewListObj(objc-1,objv+1);
> 	traceList->refCount++;
> 
> 	if (TCL_ERROR == CallVarTraces(iPtr, arrayPtr, varPtr, varName, Tcl_GetString(traceList),
2898a2903
> 	    TclDecrRefCount(traceList);
2899a2905,2906
> 	} else {
> 	    TclDecrRefCount(traceList);