avoid blocking wait if we've some retarded events (from last event-cycle) and max blocking time was not set outside an event source traversal.

1 files changed, 12 insertions, 0 deletions

diff --git a/generic/tclNotify.c b/generic/tclNotify.c
index baed116..28c3879 100644
--- a/generic/tclNotify.c
+++ b/generic/tclNotify.c
@@ -1077,6 +1077,18 @@ SetUpEventSources(
     }
     tsdPtr->inTraversal--;
 
+    /*
+     * If we've some retarded events (from last event-cycle), wait non-blocking.
+     */
+    if ( tsdPtr->firstRetardEv
+      && ( !tsdPtr->blockTimeSet 
+	|| tsdPtr->blockTimeServLev < tsdPtr->serviceLevel )
+    ) {
+	tsdPtr->blockTime.sec = 0;
+	tsdPtr->blockTime.usec = 0;
+	tsdPtr->blockTimeSet = 1;
+    }
+
     return res;
 }