Attachment "517503.diff" to
ticket [517503ffff]
added by
andreas_kupries
2002-02-15 02:11:59.
Index: generic/tclIOCmd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIOCmd.c,v
retrieving revision 1.13
diff -u -r1.13 tclIOCmd.c
--- generic/tclIOCmd.c 25 Jan 2002 20:40:55 -0000 1.13
+++ generic/tclIOCmd.c 14 Feb 2002 19:10:05 -0000
@@ -250,9 +250,7 @@
lineLen = Tcl_GetsObj(chan, linePtr);
if (lineLen < 0) {
if (!Tcl_Eof(chan) && !Tcl_InputBlocked(chan)) {
- if (objc == 3) {
- Tcl_DecrRefCount(linePtr);
- }
+ Tcl_DecrRefCount(linePtr);
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "error reading \"", name, "\": ",
Tcl_PosixError(interp), (char *) NULL);