diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-30 16:14:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-30 16:14:11 (GMT) |
| commit | b2a578281bc651e13b8df894e7ad830511439372 (patch) | |
| tree | 5c8db2cd495d30c8806988381251f527f9c8da00 | |
| parent | fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2 (diff) | |
| download | tcl-b2a578281bc651e13b8df894e7ad830511439372.zip tcl-b2a578281bc651e13b8df894e7ad830511439372.tar.gz tcl-b2a578281bc651e13b8df894e7ad830511439372.tar.bz2 | |
Re-fix failing load-3.2 test. The right way this time.
| -rw-r--r-- | generic/tclLoad.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 61c763f..5c47a6b 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -473,10 +473,9 @@ Tcl_LoadObjCmd( if (iPtr->result != NULL && iPtr->result[0] != '\0') { /* We have an Tcl 8.x extension with incompatible stub table. */ Tcl_Obj *obj = Tcl_NewStringObj(iPtr->result, -1); - Tcl_SetObjResult(interp, obj); - } else { - Tcl_TransferResult(target, code, interp); + Tcl_SetObjResult(target, obj); } + Tcl_TransferResult(target, code, interp); goto done; } |