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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonUploads.ml
diff -u mldonkey/src/daemon/common/commonUploads.ml:1.30 
mldonkey/src/daemon/common/commonUploads.ml:1.31
--- mldonkey/src/daemon/common/commonUploads.ml:1.30    Thu Jul 28 23:25:22 2005
+++ mldonkey/src/daemon/common/commonUploads.ml Fri Aug 26 21:21:20 2005
@@ -882,7 +882,8 @@
 and find_pending_slot () =
   try
     let rec iter () =
-      let _, c = Intmap.top !pending_slots_map in
+      let c = Intmap.nth !pending_slots_map 
+       (Random.int (Intmap.length !pending_slots_map)) in
       give_a_slot c
     in
     iter ()