X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/2f03297fba2a10dbc860018fac7ad07c83b08ce8..f8e139db970666e906db30417763f81e2ae5e801:/dnsasync.pas?ds=inline diff --git a/dnsasync.pas b/dnsasync.pas old mode 100755 new mode 100644 index a8e1aa6..fab858d --- a/dnsasync.pas +++ b/dnsasync.pas @@ -100,14 +100,14 @@ var socketno : integer; begin for socketno := 0 to numsock -1 do begin - if assigned(sockets[socketno]) then begin + if assigned(sockets[socketno]) then begin if dnsserverids[socketno] >= 0 then begin reportlag(dnsserverids[socketno],-1); dnsserverids[socketno] := -1; end; sockets[socketno].release; setstate_request_init('',states[socketno]); - end; + end; end; inherited destroy; end;