12 lines
514 B
Diff
12 lines
514 B
Diff
|
--- generic/tclTrace.c.orig 2010-01-21 12:38:47.000000000 +0100
|
||
|
|
+++ generic/tclTrace.c 2010-01-21 12:55:05.000000000 +0100
|
||
|
|
@@ -909,7 +909,7 @@
|
||
|
|
}
|
||
|
|
ctvarPtr->traceCmdInfo.length = length;
|
||
|
|
flags |= TCL_TRACE_UNSETS | TCL_TRACE_RESULT_OBJECT;
|
||
|
|
- strcpy(ctvarPtr->traceCmdInfo.command, command);
|
||
|
|
+ memcpy(ctvarPtr->traceCmdInfo.command, command, length + 1);
|
||
|
|
ctvarPtr->traceInfo.traceProc = TraceVarProc;
|
||
|
|
ctvarPtr->traceInfo.clientData = (ClientData)
|
||
|
|
&ctvarPtr->traceCmdInfo;
|