Tcl Source Code

Artifact 4f8eb607691a3f8d4c074bbe6005944f8783adea:

Attachment "iofinloop.patch" to ticket [2270477fff] added by ferrieux 2008-11-17 07:48:19.

---

Index: tclIO.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIO.c,v
retrieving revision 1.147
diff -u -r1.147 tclIO.c
--- tclIO.c	6 Nov 2008 21:47:36 -0000	1.147
+++ tclIO.c	17 Nov 2008 00:43:56 -0000
@@ -364,8 +364,8 @@
 		 */
 
 		chanPtr->instanceData = NULL;
-		SetFlag(statePtr, CHANNEL_DEAD);
 	    }
+	    SetFlag(statePtr, CHANNEL_DEAD);
 	}
     }