[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyOvernet.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyOvernet.ml
diff -u mldonkey/src/networks/donkey/donkeyOvernet.ml:1.51 
mldonkey/src/networks/donkey/donkeyOvernet.ml:1.52
--- mldonkey/src/networks/donkey/donkeyOvernet.ml:1.51  Thu Oct  6 12:56:08 2005
+++ mldonkey/src/networks/donkey/donkeyOvernet.ml       Mon Oct 10 16:18:29 2005
@@ -1261,7 +1261,8 @@
           for j = 1 to Fifo.length pb do
 
             let p = Fifo.take pb in
-            if p.peer_last_recv > overtime then begin
+            if p.peer_last_recv > overtime &&
+               p.peer_last_recv >= p.peer_last_send then begin
                 Fifo.put b p;
                 incr connected_peers;
                decr pre_connected_peers;