diff options
Diffstat (limited to 'unix/tclUnixChan.c')
| -rw-r--r-- | unix/tclUnixChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index b4b2739..f0320be 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -1787,7 +1787,7 @@ TclUnixWaitForFile( */ if (timeout > 0) { - Tcl_GetTime(&now); + TclpGetMonotonicTime(&now); abortTime.sec = now.sec + timeout/1000; abortTime.usec = now.usec + (timeout%1000)*1000; if (abortTime.usec >= 1000000) { @@ -1876,7 +1876,7 @@ TclUnixWaitForFile( * The select returned early, so we need to recompute the timeout. */ - Tcl_GetTime(&now); + TclpGetMonotonicTime(&now); if ((abortTime.sec < now.sec) || (abortTime.sec==now.sec && abortTime.usec<=now.usec)) { break; |