diff options
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | unix/tclUnixTest.c | 4 |
2 files changed, 10 insertions, 2 deletions
@@ -1,3 +1,11 @@ +2002-08-19 Andreas Kupries <andreas_kupries@users.sourceforge.net> + + * unix/tclUnixTest.c (TestfilehandlerCmd): Changed + readable/writable to the more common readable|writable. + + Fixes SF #596034 reported by Larry Virden + <lvirden@users.sourceforge.net>. + 2002-08-16 Donal K. Fellows <fellowsd@cs.man.ac.uk> * tests/fCmd.test: Added test to make sure that the cause of the 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; } |