fixed listen breaking on kernel compiled without ipv6

git-svn-id: file:///svnroot/lcore/trunk@103 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/lsocket.pas b/lsocket.pas
index 642ec9a0cfe4c80e339ad34993d9969b5b5f8e10..72ef891b2966e0d6e8e0985f2107f987d9d2ffe4 100755 (executable)
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -419,6 +419,7 @@ begin
   if (addr = '::') and (origaddr = '') and (fdhandlein < 0) then begin\r
     {writeln('failed to create an IPV6 socket with error ',socketerror,'. trying to create an IPV4 one instead');}\r
     addr := '0.0.0.0';\r
+    biniptemp := ipstrtobinf(addr);\r
     fdhandlein := socket(PF_INET,socktype,0);\r
   end;\r
   {$endif}\r