summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2007-11-28 01:11:51 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2007-11-28 01:11:51 (GMT)
commit15f6b9bedb311af89a580add8b92baae387a617e (patch)
tree5c0c66fb2069441997dde87a3fc683780eb4ddc1 /generic/tclIO.c
parenta5b75d5aa69542635409085c5cc34dcdf97eeecc (diff)
downloadtcl-15f6b9bedb311af89a580add8b92baae387a617e.zip
tcl-15f6b9bedb311af89a580add8b92baae387a617e.tar.gz
tcl-15f6b9bedb311af89a580add8b92baae387a617e.tar.bz2
-eofchar must support no eofchar.
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 9af2e19..886a08e 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIO.c,v 1.130 2007/11/27 19:48:12 dgp Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.131 2007/11/28 01:11:52 patthoyts Exp $
*/
#include "tclInt.h"
@@ -7318,10 +7318,10 @@ Tcl_SetChannelOption(
int outIndex = (argc - 1);
int inValue = (int) argv[0][0];
int outValue = (int) argv[outIndex][0];
- if ((inValue < 0x01 || inValue > 0x7f) || (outValue < 0x01 || outValue > 0x7f)) {
+ if ((inValue < 0 || inValue > 0x7f) || (outValue < 0 || outValue > 0x7f)) {
if (interp) {
Tcl_AppendResult(interp,
- "bad value for -eofchar: must be between 0x01 and 0x7f",
+ "bad value for -eofchar: must be between 0 and 0x7f",
NULL);
}
ckfree((char *) argv);