From 7103d942718e5537c2c81195f0c0949ef529e08f Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Tue, 20 Aug 2002 03:03:53 +0000 Subject: * unix/tclUnixTest.c (TestfilehandlerCmd): Changed readable/writable to the more common readable|writable. Fixes SF #596034 reported by Larry Virden . --- ChangeLog | 8 ++++++++ unix/tclUnixTest.c | 4 ++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b8e60b9..1eeff6f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2002-08-19 Andreas Kupries + + * unix/tclUnixTest.c (TestfilehandlerCmd): Changed + readable/writable to the more common readable|writable. + + Fixes SF #596034 reported by Larry Virden + . + 2002-08-16 Donal K. Fellows * 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; } -- cgit v0.12