[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyOvernet
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyOvernet.ml |
Date: |
Sat, 05 Nov 2005 11:25:21 -0500 |
Index: mldonkey/src/networks/donkey/donkeyOvernet.ml
diff -u mldonkey/src/networks/donkey/donkeyOvernet.ml:1.57
mldonkey/src/networks/donkey/donkeyOvernet.ml:1.58
--- mldonkey/src/networks/donkey/donkeyOvernet.ml:1.57 Sat Nov 5 16:23:40 2005
+++ mldonkey/src/networks/donkey/donkeyOvernet.ml Sat Nov 5 16:25:20 2005
@@ -1426,17 +1426,7 @@
compute_to_ping ();
-(* reset the Hashtbls and Fifos for searches that are older than 5 minutes *)
let l = last_time () - 300 in
- List.iter ( fun s ->
- if s.search_requests < max_search_requests &&
- s.search_start > l then begin
- Array.iter (fun a -> Fifo.clear a) s.search_waiting_peers;
- Array.iter (fun a -> Fifo.clear a) s.search_asked_peers;
- Array.iter (fun a -> Fifo.clear a) s.search_ok_peers;
- Hashtbl.clear s.search_results;
- end
- ) !overnet_searches;
(* remove searches that are older than 5 minutes *)
overnet_searches := List.filter (fun s ->
s.search_requests < max_search_requests &&