From 15f6b9bedb311af89a580add8b92baae387a617e Mon Sep 17 00:00:00 2001 From: patthoyts Date: Wed, 28 Nov 2007 01:11:51 +0000 Subject: -eofchar must support no eofchar. --- ChangeLog | 4 ++++ generic/tclIO.c | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index bbba4b1..60eaa59 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-11-28 Pat Thoyts + + * generic/tclIO.c: -eofchar must support no eofchar. + 2007-11-27 Miguel Sofer * 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); -- cgit v0.12