diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-26 21:46:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-26 21:46:40 (GMT) |
| commit | 1df3dc0ae2488112b8d9f28bb74b73c508a11210 (patch) | |
| tree | 30e75389482b537e3ec992241b9d1cff5b53875e /generic/tclInterp.c | |
| parent | d2fc2aa765cea8a44d1d40502629a88c09bbfd41 (diff) | |
| parent | ad4011e1c84e0dc74ac76be5d3d48e3a1ad92d2f (diff) | |
| download | tcl-1df3dc0ae2488112b8d9f28bb74b73c508a11210.zip tcl-1df3dc0ae2488112b8d9f28bb74b73c508a11210.tar.gz tcl-1df3dc0ae2488112b8d9f28bb74b73c508a11210.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 302ac17..70cf8fa 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2950,7 +2950,7 @@ ChildExpose( if (Tcl_IsSafe(interp)) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "Permission denied: safe interpreter cannot expose commands", + "permission denied: safe interpreter cannot expose commands", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "INTERP", "UNSAFE", NULL); @@ -2995,7 +2995,7 @@ ChildRecursionLimit( if (objc) { if (Tcl_IsSafe(interp)) { - Tcl_SetObjResult(interp, Tcl_NewStringObj("Permission denied: " + Tcl_SetObjResult(interp, Tcl_NewStringObj("permission denied: " "safe interpreters cannot change recursion limit", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "INTERP", "UNSAFE", NULL); @@ -3056,7 +3056,7 @@ ChildHide( if (Tcl_IsSafe(interp)) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "Permission denied: safe interpreter cannot hide commands", + "permission denied: safe interpreter cannot hide commands", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "INTERP", "UNSAFE", NULL); @@ -3218,7 +3218,7 @@ ChildMarkTrusted( { if (Tcl_IsSafe(interp)) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "Permission denied: safe interpreter cannot mark trusted", + "permission denied: safe interpreter cannot mark trusted", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "INTERP", "UNSAFE", NULL); |