From e6290c8bee34fc9a6fdbce30a9dd85faffeaac5a Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Tue, 11 Oct 2011 08:08:48 +0000
Subject: [PATCH] fixed listen breaking on kernel compiled without ipv6

git-svn-id: file:///svnroot/lcore/trunk@103 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
 lsocket.pas | 1 +
 1 file changed, 1 insertion(+)

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}
-- 
2.30.2