diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:02:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:02:55 (GMT) |
| commit | dc5930bc812a27e31bf8a0aa2fcf564ed7306a26 (patch) | |
| tree | cfdd8df6ed6eeb844e46e1d630692a8a6137fbb9 /generic/tclTestProcBodyObj.c | |
| parent | f8b9e919c954be237c906a708530111607f88081 (diff) | |
| parent | 186145578675341deb63fd53e6080896695c3574 (diff) | |
| download | tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.zip tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.tar.gz tcl-dc5930bc812a27e31bf8a0aa2fcf564ed7306a26.tar.bz2 | |
Merge 8.6
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 9b6aa1d..b6dbc3f 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, -1, 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; } |