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 | 5f9519213f1ee34452f4fa7bd495a4c1ddada792 (patch) | |
| tree | 20cafb24aed5e93ba0a4f84880a9dbafcb17b728 /generic/tclVar.c | |
| parent | 976c48a7f14df997ad05c82dae867c8622236e70 (diff) | |
| download | tcl-5f9519213f1ee34452f4fa7bd495a4c1ddada792.zip tcl-5f9519213f1ee34452f4fa7bd495a4c1ddada792.tar.gz tcl-5f9519213f1ee34452f4fa7bd495a4c1ddada792.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; } } |