diff options
| author | andreas_kupries <akupries@shaw.ca> | 2002-08-20 03:03:53 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2002-08-20 03:03:53 (GMT) |
| commit | 7103d942718e5537c2c81195f0c0949ef529e08f (patch) | |
| tree | 2dd09672da7c9730b72dbf5fe7a3a31769ede3d7 /unix | |
| parent | 6355b34d7cd7a6c675e795ffed9a1932cc93b127 (diff) | |
| download | tcl-7103d942718e5537c2c81195f0c0949ef529e08f.zip tcl-7103d942718e5537c2c81195f0c0949ef529e08f.tar.gz tcl-7103d942718e5537c2c81195f0c0949ef529e08f.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')
| -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; } |