From 1e3c476819993ce4fbc8fe47d0402e963beaf827 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 12 Mar 2012 02:03:20 -0400
Subject: [PATCH] WaitInit now sets SO_REUSEADDR

---
 mdl/m_socket_class.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mdl/m_socket_class.pas b/mdl/m_socket_class.pas
index 7f9233e..a6f4a88 100644
--- a/mdl/m_socket_class.pas
+++ b/mdl/m_socket_class.pas
@@ -487,9 +487,14 @@ End;
 Procedure TSocketClass.WaitInit (Port: Word);
 Var
   SIN : TINetSockAddr;
+  Opt : LongInt;
 Begin
   FSocketHandle := fpSocket(PF_INET, SOCK_STREAM, 0);
 
+  Opt := 1;
+
+  fpSetSockOpt (FSocketHandle, SOL_SOCKET, SO_REUSEADDR, @Opt, SizeOf(Opt));
+
   SIN.sin_family      := PF_INET;
   SIN.sin_addr.s_addr := 0;
   SIN.sin_port        := htons(Port);