2c704cf1f8
Copy from Base:build/tcl via accept of submit request 30222 revision 4. Request was accepted with message: Thanks. OBS-URL: https://build.opensuse.org/request/show/30222 OBS-URL: https://build.opensuse.org/package/show/devel:languages:tcl/tcl?expand=0&rev=30
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;
|