[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.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 &&