X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/27e903c56380abcb11b5a0b8d7ccab88a14b5cde..94bbdfffcfac987de199779e92ac317393bb21d4:/lsocket.pas diff --git a/lsocket.pas b/lsocket.pas index 642ec9a..72ef891 100755 --- a/lsocket.pas +++ b/lsocket.pas @@ -419,6 +419,7 @@ begin if (addr = '::') and (origaddr = '') and (fdhandlein < 0) then begin {writeln('failed to create an IPV6 socket with error ',socketerror,'. trying to create an IPV4 one instead');} addr := '0.0.0.0'; + biniptemp := ipstrtobinf(addr); fdhandlein := socket(PF_INET,socktype,0); end; {$endif}