diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
| commit | 7bea42569d8c2ccb8584155f706392d5812ec428 (patch) | |
| tree | 4f61b95593d24393fff08344b408215836a58a05 /generic/tclIOUtil.c | |
| parent | f0bba60202785e634e8e1712db5cc37246d36e32 (diff) | |
| download | tcl-7bea42569d8c2ccb8584155f706392d5812ec428.zip tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.gz tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.bz2 | |
whopper change; now passes test suite on OSX
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index d2919fc..cf64daa 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1659,9 +1659,9 @@ TclGetOpenModeEx( if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "invalid access mode \"%s\": must be RDONLY, WRONLY, " - "RDWR, APPEND, BINARY, CREAT, EXCL, NOCTTY, NONBLOCK," - " or TRUNC", flag)); + "invalid access mode \"%s\": should be RDONLY, " + "WRONLY, RDWR, APPEND, BINARY, CREAT, EXCL, NOCTTY, " + "NONBLOCK, or TRUNC", flag)); } ckfree(modeArgv); return -1; @@ -1673,7 +1673,7 @@ TclGetOpenModeEx( if (!gotRW) { if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "access mode must include either RDONLY, WRONLY, or RDWR", + "access mode should include either RDONLY, WRONLY, or RDWR", -1)); } return -1; |