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 | 1e6fd4531c4e31e4df741405eae3cc88980d6b83 (patch) | |
| tree | 5c8db2cd495d30c8806988381251f527f9c8da00 | |
| parent | 21e80b3a2597bf0fd3929581c7920833e2d26ab8 (diff) | |
| download | tcl-1e6fd4531c4e31e4df741405eae3cc88980d6b83.zip tcl-1e6fd4531c4e31e4df741405eae3cc88980d6b83.tar.gz tcl-1e6fd4531c4e31e4df741405eae3cc88980d6b83.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; } |