[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTComplexOptions.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTComplexOptions.ml
diff -u mldonkey/src/networks/bittorrent/bTComplexOptions.ml:1.27 
mldonkey/src/networks/bittorrent/bTComplexOptions.ml:1.28
--- mldonkey/src/networks/bittorrent/bTComplexOptions.ml:1.27   Sat Nov  5 
16:23:40 2005
+++ mldonkey/src/networks/bittorrent/bTComplexOptions.ml        Mon Nov  7 
20:11:42 2005
@@ -293,20 +293,20 @@
   )
 
 
-let gstats_by_brand = define_option bt_stats_section ["stats"] ""
+let gstats_array = define_option bt_stats_section ["stats"] ""
     (array_option StatsOption.t) (new_stats_array ())
 
 
 let _ =
-  option_hook gstats_by_brand (fun _ ->
-      let old_stats = !!gstats_by_brand in
+  option_hook gstats_array (fun _ ->
+      let old_stats = !!gstats_array in
       let old_len = Array.length old_stats in
       if old_len <> brand_count then
         let t = new_stats_array () in
         for i = 0 to old_len - 1 do
           t.(i) <- old_stats.(i)
         done;
-        gstats_by_brand =:= t
+        gstats_array =:= t
   )
 
 let diff_time = ref 0