diff options
author | dkf <dkf@noemail.net> | 2014-09-10 08:20:46 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2014-09-10 08:20:46 (GMT) |
commit | 1b5df550b8dd42dc91485adaec8f37ab41200019 (patch) | |
tree | 20cafb24aed5e93ba0a4f84880a9dbafcb17b728 /generic/tclVar.c | |
parent | d0ab701044d0b2efef2cc213244e4d1d22db2dc0 (diff) | |
download | tcl-1b5df550b8dd42dc91485adaec8f37ab41200019.zip tcl-1b5df550b8dd42dc91485adaec8f37ab41200019.tar.gz tcl-1b5df550b8dd42dc91485adaec8f37ab41200019.tar.bz2 |
[2486824] Improve error message; not all that upvars is an upvar.
FossilOrigin-Name: f3c64a7a7cd6da07985e2fdcc5eaad16a54ce538
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; } } |