diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2007-11-28 01:11:51 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2007-11-28 01:11:51 (GMT) |
| commit | 15f6b9bedb311af89a580add8b92baae387a617e (patch) | |
| tree | 5c0c66fb2069441997dde87a3fc683780eb4ddc1 | |
| parent | a5b75d5aa69542635409085c5cc34dcdf97eeecc (diff) | |
| download | tcl-15f6b9bedb311af89a580add8b92baae387a617e.zip tcl-15f6b9bedb311af89a580add8b92baae387a617e.tar.gz tcl-15f6b9bedb311af89a580add8b92baae387a617e.tar.bz2 | |
-eofchar must support no eofchar.
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tclIO.c | 6 |
2 files changed, 7 insertions, 3 deletions
@@ -1,3 +1,7 @@ +2007-11-28 Pat Thoyts <patthoyts@users.sourceforge.net> + + * generic/tclIO.c: -eofchar must support no eofchar. + 2007-11-27 Miguel Sofer <msofer@users.sf.net> * generic/tclBasic.c: remove unneeded call in Tcl_CreateInterp, 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); |