Shrug
authormalc <av1474@comtv.ru>
Tue, 22 Jan 2013 10:21:02 +0000 (22 14:21 +0400)
committermalc <av1474@comtv.ru>
Tue, 22 Jan 2013 10:21:02 +0000 (22 14:21 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 15ded45..706bfdd 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -7152,7 +7152,7 @@ let () =
       else 0.0
     in
     let r, _, _ =
-      try tempfailureretry (Unix.select r [] []) timeout
+      try Unix.select r [] [] timeout
       with Unix.Unix_error (Unix.EINTR, _, _) -> [], [], []
     in
     begin match r with