diff options
| author | evilotto <evilotto> | 2014-11-26 18:17:34 (GMT) |
|---|---|---|
| committer | evilotto <evilotto> | 2014-11-26 18:17:34 (GMT) |
| commit | 5cd6e3655aa18d12fd25de99de591b2e2074049b (patch) | |
| tree | b496abc8bdbca86c65cdc20e6d21f2bc471206c2 /generic/tclVar.c | |
| parent | 6eb9ac605e8119a21ec7d047ba0da0375559d527 (diff) | |
| parent | 33eb2510ff53b7fd3b32ea1c84b4ef85d00c10f8 (diff) | |
| download | tcl-jcr_notifier_poll.zip tcl-jcr_notifier_poll.tar.gz tcl-jcr_notifier_poll.tar.bz2 | |
Merge from trunkjcr_notifier_poll
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 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; |