/[mldonkey]/mldonkey/src/utils/net/basicSocket.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/basicSocket.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by spiralvoice, Fri Oct 28 08:21:49 2005 UTC revision 1.24 by spiralvoice, Fri Dec 2 12:02:36 2005 UTC
# Line 641  let _ = Line 641  let _ =
641          List.iter (fun t -> t.dump_info buf) !closed_tasks;          List.iter (fun t -> t.dump_info buf) !closed_tasks;
642    );    );
643    
   Printexc2.register_exn (fun e ->  
       match e with  
         Unix.Unix_error (e, f, arg) ->  
           Printf.sprintf "%s failed%s: %s" f (if arg = "" then "" else  
               "on " ^ arg) (Unix.error_message e)  
       | _ -> raise e  
   );  
   
644    add_timer 300. (fun t ->    add_timer 300. (fun t ->
645        reactivate_timer t;        reactivate_timer t;
646        if !debug then        if !debug then

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26