diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-04-04 13:40:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-04-04 13:40:01 (GMT) |
| commit | 749e8ceb5b9d6b1b59a8d16b578ec98017f01ad9 (patch) | |
| tree | eebeebaa58948935075500c432b9c53885fe1d6b /generic/tclScan.c | |
| parent | 99af240204182be4fa33b31c14a38233e2bc4249 (diff) | |
| download | tcl-749e8ceb5b9d6b1b59a8d16b578ec98017f01ad9.zip tcl-749e8ceb5b9d6b1b59a8d16b578ec98017f01ad9.tar.gz tcl-749e8ceb5b9d6b1b59a8d16b578ec98017f01ad9.tar.bz2 | |
Better error-message in case of errors related to setting a variable
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 68b8d21..06e66e4 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -1001,10 +1001,10 @@ Tcl_ScanObjCmd( continue; } result++; -#warning Why make your own error message? Why? - if (Tcl_ObjSetVar2(interp, objv[i+3], NULL, objs[i], 0) == NULL) { - Tcl_AppendResult(interp, "couldn't set variable \"", - TclGetString(objv[i+3]), "\"", NULL); + /* In case of multiple errors in setting variables, just report + * the first one. */ + if (Tcl_ObjSetVar2(interp, objv[i+3], NULL, objs[i], + (code == TCL_OK) ? TCL_LEAVE_ERR_MSG : 0) == NULL) { code = TCL_ERROR; } Tcl_DecrRefCount(objs[i]); |