summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2003-04-10 22:18:07 (GMT)
committerandreas_kupries <akupries@shaw.ca>2003-04-10 22:18:07 (GMT)
commitd5f0a961d91663c289bcfab20356dfb54493659a (patch)
treec8a41cbe9aa29a9eb1ee10f34092cac22855e9c5 /generic
parent810717fe0c3223b6ab732420cba3b983a9595d8b (diff)
downloadtcl-d5f0a961d91663c289bcfab20356dfb54493659a.zip
tcl-d5f0a961d91663c289bcfab20356dfb54493659a.tar.gz
tcl-d5f0a961d91663c289bcfab20356dfb54493659a.tar.bz2
Experimental change. Easier to check in and later back out if there
are problems than to try and compile everything manually on all the platforms. This way the AS auto-build gets the change without fuss, and I can read the logs tomorrow.
Diffstat (limited to 'generic')
-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);