gentoo-overlay/net-p2p/mldonkey/files/ocaml4.patch

Index: mldonkey-3.1.5/src/utils/net/terminal.ml
===================================================================
--- mldonkey-3.1.5.orig/src/utils/net/terminal.ml
+++ mldonkey-3.1.5/src/utils/net/terminal.ml
@@ -185,7 +185,6 @@ module Output = struct
   let canal = List.assoc chan !chanmap in
   etat.chan <- Some (chan, canal);
   info (sprintf "connecte au canal '%s'" chan);
-  (* {| canal ALL } *)
        with Not_found -> (* pas encore de recepteur pour ce canal *)
   try (* on en cree un *)
     let serveur = nsrecord.get_loc chan in