[Mldonkey-commits] Changes to mldonkey/src/utils/net/basicSocket.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/basicSocket.ml
diff -u mldonkey/src/utils/net/basicSocket.ml:1.18 
mldonkey/src/utils/net/basicSocket.ml:1.19
--- mldonkey/src/utils/net/basicSocket.ml:1.18  Fri Jul 22 10:58:55 2005
+++ mldonkey/src/utils/net/basicSocket.ml       Sun Aug 28 10:49:49 2005
@@ -362,7 +362,7 @@
   | t :: old_tail ->
 (*      lprintf "NEXT TASK\n"; *)
       if t.closed then begin
-          remove_fd_from_event_set t;
+          if t.fd <> dummy_fd then remove_fd_from_event_set t;
           iter_task old_tail time
        end else
         begin