summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-09-10 08:24:59 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-09-10 08:24:59 (GMT)
commit893b3f3b6945cbed2de0e75bf3b0ce06ceaf391c (patch)
treedd2cb87a1afb416ea575ca2e1208ddd2b672ea6e /generic/tclVar.c
parente19c2ce585d7fe309059bb96044b08dbfa850a6b (diff)
parent186cc4a17e82ce9bd90edccc45ab943c63b40c30 (diff)
downloadtcl-893b3f3b6945cbed2de0e75bf3b0ce06ceaf391c.zip
tcl-893b3f3b6945cbed2de0e75bf3b0ce06ceaf391c.tar.gz
tcl-893b3f3b6945cbed2de0e75bf3b0ce06ceaf391c.tar.bz2
[2486824] Improve error message; not all that upvars is an upvar.
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c9
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index 5e3157e..ec4c13c 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -4405,8 +4405,8 @@ ObjMakeUpvar(
|| !HasLocalVars(varFramePtr)
|| (strstr(TclGetString(myNamePtr), "::") != NULL))) {
Tcl_SetObjResult((Tcl_Interp *) iPtr, Tcl_ObjPrintf(
- "bad variable name \"%s\": upvar won't create "
- "namespace variable that refers to procedure variable",
+ "bad variable name \"%s\": can't create namespace "
+ "variable that refers to procedure variable",
TclGetString(myNamePtr)));
Tcl_SetErrorCode(interp, "TCL", "UPVAR", "INVERTED", NULL);
return TCL_ERROR;
@@ -4506,9 +4506,8 @@ TclPtrObjMakeUpvar(
*/
Tcl_SetObjResult((Tcl_Interp *) iPtr, Tcl_ObjPrintf(
- "bad variable name \"%s\": upvar won't create a"
- " scalar variable that looks like an array element",
- myName));
+ "bad variable name \"%s\": can't create a scalar "
+ "variable that looks like an array element", myName));
Tcl_SetErrorCode(interp, "TCL", "UPVAR", "LOCAL_ELEMENT",
NULL);
return TCL_ERROR;