diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-01 10:27:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-01 10:27:54 (GMT) |
| commit | baa549af6a4cd6b4caf71c2f0861ee682cc151d3 (patch) | |
| tree | 9c50f937fbf7d90f1fc7f249e2581d798d958bfc /generic/tclTestProcBodyObj.c | |
| parent | a30f4dce67cdc3e8e8da693579f8abd90ea22f43 (diff) | |
| parent | ce04b407d9ed313df659f9d292b91ca65f3e82c4 (diff) | |
| download | tcl-baa549af6a4cd6b4caf71c2f0861ee682cc151d3.zip tcl-baa549af6a4cd6b4caf71c2f0861ee682cc151d3.tar.gz tcl-baa549af6a4cd6b4caf71c2f0861ee682cc151d3.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index 8d92c6e..381ff02 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -144,14 +144,14 @@ RegisterCommand( char buf[128]; if (cmdTablePtr->exportIt) { - sprintf(buf, "namespace eval %s { namespace export %s }", + snprintf(buf, sizeof(buf), "namespace eval %s { namespace export %s }", namesp, cmdTablePtr->cmdName); if (Tcl_EvalEx(interp, buf, TCL_INDEX_NONE, 0) != TCL_OK) { return TCL_ERROR; } } - sprintf(buf, "%s::%s", namesp, cmdTablePtr->cmdName); + snprintf(buf, sizeof(buf), "%s::%s", namesp, cmdTablePtr->cmdName); Tcl_CreateObjCommand(interp, buf, cmdTablePtr->proc, 0, 0); return TCL_OK; } |