[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.23 
mldonkey/src/daemon/common/commonSources.ml:1.24
--- mldonkey/src/daemon/common/commonSources.ml:1.23    Fri Aug 26 21:10:43 2005
+++ mldonkey/src/daemon/common/commonSources.ml Mon Sep 19 10:09:05 2005
@@ -2155,6 +2155,10 @@
             let nsources = ref 0 in
             HS.iter (fun _ -> incr nsources) sources_by_uid;
             Printf.bprintf buf "Sources by UID table: %d entries\n" !nsources;
+            
+            nsources := 0;
+            H.iter (fun _ -> incr nsources) sources_by_num;
+            Printf.bprintf buf "Sources by NUM table: %d entries\n" !nsources;
 
             let nconnected = ref 0 in
             Fifo.iter (fun (_,s) ->