X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/9763940f8849e5c807566157829a1e6d2c9172ee..1c8b91ca0f6891a397357c7cf7d77af18c15937d:/dnssync.pas?ds=inline

diff --git a/dnssync.pas b/dnssync.pas
index f5eafa6..66d9802 100644
--- a/dnssync.pas
+++ b/dnssync.pas
@@ -94,7 +94,7 @@ begin
 var
   temp:ttimeval;
 begin
-  gettimeofday(temp);
+  gettimemonotonic(temp);
   result := ((temp.tv_usec div 1000) + (temp.tv_sec * 1000)) and tsmask;
 {$endif}
 end;
@@ -256,7 +256,7 @@ begin
       selecttimeout.tv_sec := 0;
       selecttimeout.tv_usec := retryafter;
     end;
-    //find the highest of the used fd's
+    //find the highest of the used fds
     b := 0;
     for socknum := numsockused-1 downto 0 do if fd[socknum] > b then b := fd[socknum];
     selectresult := select(b+1,@fds,nil,nil,@selecttimeout);
@@ -328,7 +328,7 @@ begin
   end;
 
   {$ifdef mswindows}
-  if usewindns then begin
+  if usewindns and (overridednsserver = '') then begin
     if (useaf = useaf_v4) then a := af_inet else if (useaf = useaf_v6) then a := af_inet6 else a := 0;
     result := winforwardlookuplist(name,a,dummy);
     {$ifdef ipv6}
@@ -399,7 +399,7 @@ var
   state:tdnsstatearr;
 begin
   {$ifdef mswindows}
-    if usewindns then begin
+    if usewindns and (overridednsserver = '') then begin
       result := winreverselookup(ip,dummy);
       exit;
     end;