[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonSources.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonSources.ml
diff -u mldonkey/src/daemon/common/commonSources.ml:1.29 
mldonkey/src/daemon/common/commonSources.ml:1.30
--- mldonkey/src/daemon/common/commonSources.ml:1.29    Sun Oct 23 16:04:53 2005
+++ mldonkey/src/daemon/common/commonSources.ml Tue Oct 25 09:42:35 2005
@@ -1005,7 +1005,17 @@
           Queue.iter (fun (_,s) -> f s)  q
         done
 
-
+(*************************************************************************)
+(*                                                                       *)
+(*                         iter_relevant_sources                         *)
+(*                                                                       *)
+(*************************************************************************)
+      let iter_relevant_sources f m =
+        List.iter (fun i ->
+          if i < nqueues then
+            let q = m.manager_sources.(i) in
+            Queue.iter (fun (_,s) -> f s)  q
+        ) !!relevant_queues
 
 (*************************************************************************)
 (*                                                                       *)