diff options
| author | andreask@activestate.com <andreas_kupries> | 2002-08-20 03:03:53 (GMT) |
|---|---|---|
| committer | andreask@activestate.com <andreas_kupries> | 2002-08-20 03:03:53 (GMT) |
| commit | 46d258166ade62deaeb28ba0bb49d699cb376916 (patch) | |
| tree | 2dd09672da7c9730b72dbf5fe7a3a31769ede3d7 /unix/tclUnixTest.c | |
| parent | af078cbae17b6743818a21089bafd68fc100f2e9 (diff) | |
| download | tcl-46d258166ade62deaeb28ba0bb49d699cb376916.zip tcl-46d258166ade62deaeb28ba0bb49d699cb376916.tar.gz tcl-46d258166ade62deaeb28ba0bb49d699cb376916.tar.bz2 | |
* unix/tclUnixTest.c (TestfilehandlerCmd): Changed
readable/writable to the more common readable|writable.
Fixes SF #596034 reported by Larry Virden
<lvirden@users.sourceforge.net>.
Diffstat (limited to 'unix/tclUnixTest.c')
| -rw-r--r-- | unix/tclUnixTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 027c26a..95adcd6 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixTest.c,v 1.12 2002/08/05 03:24:41 dgp Exp $ + * RCS: @(#) $Id: tclUnixTest.c,v 1.13 2002/08/20 03:03:54 andreas_kupries Exp $ */ #include "tclInt.h" @@ -299,7 +299,7 @@ TestfilehandlerCmd(clientData, interp, argc, argv) } else if (strcmp(argv[1], "wait") == 0) { if (argc != 5) { Tcl_AppendResult(interp, "wrong # arguments: should be \"", - argv[0], " wait index readable/writable timeout\"", + argv[0], " wait index readable|writable timeout\"", (char *) NULL); return TCL_ERROR; } |