summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdAH.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-08-29 17:43:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-08-29 17:43:24 (GMT)
commit4d937a98950f548bd24d312258fd069a0c063041 (patch)
tree741057c3b5bda83a236207ecf3a28ff0fe54f15a /generic/tclCmdAH.c
parentf13a99eb97ccd3791f0896870344e33eacf3e28c (diff)
downloadtcl-4d937a98950f548bd24d312258fd069a0c063041.zip
tcl-4d937a98950f548bd24d312258fd069a0c063041.tar.gz
tcl-4d937a98950f548bd24d312258fd069a0c063041.tar.bz2
* generic/tclCmdAH.c: Corrected bug in TIP 90 implementation
* tests/cmdMZ.test: where the default -errorcode NONE value was not copied into the return options dictionary. This correction modified one test result.
Diffstat (limited to 'generic/tclCmdAH.c')
-rw-r--r--generic/tclCmdAH.c9
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index d4788be..5cfe243 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdAH.c,v 1.33 2003/05/14 22:45:12 dkf Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.34 2003/08/29 17:43:24 dgp Exp $
*/
#include "tclInt.h"
@@ -301,6 +301,13 @@ Tcl_CatchObjCmd(dummy, interp, objc, objv)
if (result == TCL_ERROR) {
value = NULL;
+ Tcl_DictObjGet(NULL, options, iPtr->returnErrorcodeKey, &value);
+ if (NULL == value) {
+ Tcl_DictObjPut(NULL, options, iPtr->returnErrorcodeKey,
+ Tcl_ObjGetVar2(interp, iPtr->execEnvPtr->errorCode,
+ NULL, TCL_GLOBAL_ONLY));
+ }
+ value = NULL;
Tcl_DictObjGet(NULL, options, iPtr->returnErrorlineKey, &value);
if (NULL == value) {
Tcl_DictObjPut(NULL, options, iPtr->returnErrorlineKey,