X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/6cb6b7ede2d178e03fa817bc28474c175f5a93b9..495c276d681a5b3f79d4b2af2ed36e8e5d9e993d:/lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index e56a25d..f4c8349 100755
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -218,8 +218,7 @@ var
 begin
   if state <> wsclosed then close;
   //prevtime := 0;
-
-  biniplist := forwardlookuplist(addr,0);
+  if isbiniplist(addr) then biniplist := addr else biniplist := forwardlookuplist(addr,0);
   if biniplist_getcount(biniplist) = 0 then raise exception.create('unable to resolve '+addr);
 
   //makeinaddrv(addr,port,inaddr);
@@ -321,7 +320,7 @@ begin
     {$endif}
     addr := '0.0.0.0';
   end;
-  biniptemp := forwardlookup(addr,10);
+  if isbiniplist(addr) then biniptemp := biniplist_get(addr,0) else biniptemp := forwardlookup(addr,10);
   addr := ipbintostr(biniptemp);
   fdhandlein := socket(biniptemp.family,socktype,0);
   {$ifdef ipv6}