diff options
-rw-r--r-- | generic/tclNotify.c | 12 |
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; } |