summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclIO.c14
1 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 556a2fe..d4177c1 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.61 2003/02/19 01:04:57 hobbs Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.61.2.1 2003/04/10 22:18:07 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -6850,6 +6850,18 @@ UpdateInterest(chanPtr)
&& (statePtr->inQueueHead->nextRemoved <
statePtr->inQueueHead->nextAdded)) {
mask &= ~TCL_READABLE;
+
+ /*
+ * Andreas Kupries -- Experimental change
+ *
+ * Squash interest in exceptions too. Solaris may/will
+ * generate superfluous exceptions for plain text files,
+ * screwing up expect, which doesn't get the synthesized
+ * readable event, or to late.
+ */
+ mask &= ~TCL_EXCEPTION;
+
+
if (!statePtr->timer) {
statePtr->timer = Tcl_CreateTimerHandler(0, ChannelTimerProc,
(ClientData) chanPtr);