diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-10 08:20:46 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-10 08:20:46 (GMT) |
| commit | 186cc4a17e82ce9bd90edccc45ab943c63b40c30 (patch) | |
| tree | 20cafb24aed5e93ba0a4f84880a9dbafcb17b728 /generic | |
| parent | aa5429b146778774bfc447513e15c08126877653 (diff) | |
| download | tcl-186cc4a17e82ce9bd90edccc45ab943c63b40c30.zip tcl-186cc4a17e82ce9bd90edccc45ab943c63b40c30.tar.gz tcl-186cc4a17e82ce9bd90edccc45ab943c63b40c30.tar.bz2 | |
[2486824] Improve error message; not all that upvars is an upvar.
Diffstat (limited to 'generic')
| -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; } } |