[Mldonkey-commits] Changes to mldonkey/src/utils/net/ip.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/ip.ml
diff -u mldonkey/src/utils/net/ip.ml:1.10 mldonkey/src/utils/net/ip.ml:1.11
--- mldonkey/src/utils/net/ip.ml:1.10   Thu Jul  7 17:22:43 2005
+++ mldonkey/src/utils/net/ip.ml        Sun Jul 10 23:19:16 2005
@@ -277,23 +277,24 @@
                 if not job.error then begin
                     let ip = 
                       let list = Array.to_list job.entries in
-                      get_non_local_ip list       
+                      get_non_local_ip list
                     in
 (*        lprintf "Ip found for %s: %s\n" job.name (to_string ip);  *)
                     Hashtbl.add ip_cache job.name (ip, current_time +. 3600.);
                     job.handler ip
                   end else begin
-                    lprintf "Error: %s: address not found\n" job.name;
+                    lprintf "[NS]: lookup error: %s: address not found\n" 
job.name;
+                    raise Not_found
                   end
               end else raise Exit
       done
   )
-  
-  
+
+
 type addr =
   AddrIp of t
 | AddrName of string
-  
+
 let string_of_addr ip =
   match ip with
     AddrIp ip -> to_string ip