diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2014-09-10 08:20:46 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2014-09-10 08:20:46 (GMT) |
| commit | b97f66823eebd564eaa5f10795fc453d85d6a0a6 (patch) | |
| tree | 20cafb24aed5e93ba0a4f84880a9dbafcb17b728 /generic/tclVar.c | |
| parent | 2e64bab86a929ab5f75836d71c18b13ffc588104 (diff) | |
| download | tcl-b97f66823eebd564eaa5f10795fc453d85d6a0a6.zip tcl-b97f66823eebd564eaa5f10795fc453d85d6a0a6.tar.gz tcl-b97f66823eebd564eaa5f10795fc453d85d6a0a6.tar.bz2 | |
[2486824] Improve error message; not all that upvars is an upvar.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index fda5ff5..a6f6cf4 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -3605,9 +3605,8 @@ ObjMakeUpvar( || !HasLocalVars(varFramePtr) || (strstr(TclGetString(myNamePtr), "::") != NULL))) { Tcl_AppendResult((Tcl_Interp *) iPtr, "bad variable name \"", - TclGetString(myNamePtr), "\": upvar won't create " - "namespace variable that refers to procedure variable", - NULL); + TclGetString(myNamePtr), "\": can't create namespace " + "variable that refers to procedure variable", NULL); return TCL_ERROR; } } @@ -3705,8 +3704,8 @@ TclPtrObjMakeUpvar( */ Tcl_AppendResult((Tcl_Interp *) iPtr, "bad variable name \"", - myName, "\": upvar won't create a scalar variable " - "that looks like an array element", NULL); + myName, "\": can't create a scalar variable that " + "looks like an array element", NULL); return TCL_ERROR; } } |