summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-09-10 08:20:46 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-09-10 08:20:46 (GMT)
commit186cc4a17e82ce9bd90edccc45ab943c63b40c30 (patch)
tree20cafb24aed5e93ba0a4f84880a9dbafcb17b728 /generic
parentaa5429b146778774bfc447513e15c08126877653 (diff)
downloadtcl-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.c9
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;
}
}