diff options
author | patthoyts <patthoyts@noemail.net> | 2007-11-28 01:11:50 (GMT) |
---|---|---|
committer | patthoyts <patthoyts@noemail.net> | 2007-11-28 01:11:50 (GMT) |
commit | 7167c2a220c2b6563e12cfb5611d1977c8123c1e (patch) | |
tree | 5c0c66fb2069441997dde87a3fc683780eb4ddc1 /generic/tclIO.c | |
parent | 56ed4359bec1ac03c0ad1e57af6f8a4545820ae3 (diff) | |
download | tcl-7167c2a220c2b6563e12cfb5611d1977c8123c1e.zip tcl-7167c2a220c2b6563e12cfb5611d1977c8123c1e.tar.gz tcl-7167c2a220c2b6563e12cfb5611d1977c8123c1e.tar.bz2 |
-eofchar must support no eofchar.
FossilOrigin-Name: 3e6026e637ed6db4b0d66c85ff32f13a8899acc9
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 6 |
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); |