From 0f720b8a2576bceb85003ba24b849ccd1d67be57 Mon Sep 17 00:00:00 2001
From: Massimo Melina <a@rejetto.com>
Date: Sun, 24 May 2020 17:57:08 +0200
Subject: [PATCH] fix: switching off the server was not stopping the IPv6 part

---
 hslib.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hslib.pas b/hslib.pas
index 279140a..2ed0e58 100644
--- a/hslib.pas
+++ b/hslib.pas
@@ -690,8 +690,9 @@ end; // start
 
 procedure ThttpSrv.stop();
 begin
-if assigned(sock) then
-  try sock.Close() except end;
+if sock = NIL then exit;
+try sock.Close() except end;
+try sock.multiListenSockets.clear() except end;
 end;
 
 procedure ThttpSrv.connected(Sender: TObject; Error: Word);