diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:22:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:22:32 (GMT) |
| commit | feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0 (patch) | |
| tree | 196f438c5ba746829c249ad28e10c94a4a44ee0c /generic/tclTestProcBodyObj.c | |
| parent | 67ced520761d9c2dff0022dafbebdb996e20b551 (diff) | |
| parent | ed24f448c79bc5af4c0f6fd77826a6552271dd9c (diff) | |
| download | tcl-feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0.zip tcl-feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0.tar.gz tcl-feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0.tar.bz2 | |
Merge 8.7
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; } |