diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-09 20:59:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-09 20:59:49 (GMT) |
| commit | 131bf290a5636e060b6c449c70a78bd74f3eba07 (patch) | |
| tree | 51c0a23e2040fab1c5f58f400a4924d80484c7da /generic/tclTestProcBodyObj.c | |
| parent | ae9355b9f2e597b0e3b197c13c5fafd721dd3f6e (diff) | |
| parent | a2b119cac88f2853439b6781404687c40acae4d2 (diff) | |
| download | tcl-131bf290a5636e060b6c449c70a78bd74f3eba07.zip tcl-131bf290a5636e060b6c449c70a78bd74f3eba07.tar.gz tcl-131bf290a5636e060b6c449c70a78bd74f3eba07.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index b1fe936..eb21b6c 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -340,7 +340,7 @@ ProcBodyTestCheckObjCmd( } version = Tcl_PkgPresentEx(interp, packageName, packageVersion, 1, NULL); - Tcl_SetObjResult(interp, Tcl_NewWideIntObj( + Tcl_SetObjResult(interp, Tcl_NewBooleanObj( strcmp(version, packageVersion) == 0)); return TCL_OK; } |