[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.29 
mldonkey/src/daemon/common/commonUploads.ml:1.30
--- mldonkey/src/daemon/common/commonUploads.ml:1.29    Thu Jul 28 22:46:17 2005
+++ mldonkey/src/daemon/common/commonUploads.ml Thu Jul 28 23:25:22 2005
@@ -851,8 +851,9 @@
   Fifo.put upload_clients c
 
 let add_pending_slot c =
-  if client_has_a_slot c then
-    if !verbose_upload then lprintf_nl "[cUp] Avoided inserting an uploader in 
pending slots!"
+  if client_has_a_slot c then begin
+      if !verbose_upload then lprintf_nl "[cUp] Avoided inserting an uploader 
in pending slots!"
+    end
   else
   if not (Intmap.mem (client_num c) !pending_slots_map) then
     begin