From bfa0c60e7725ed63f2148de95c4651541716515b Mon Sep 17 00:00:00 2001
From: Ondrej Pokorny <lazarus@kluug.net>
Date: Sun, 29 Aug 2021 12:50:41 +0200
Subject: [PATCH] * destroy FList in the destructor of
 TFPHTTPServerConnectionListHandler

---
 packages/fcl-web/src/base/fphttpserver.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/packages/fcl-web/src/base/fphttpserver.pp b/packages/fcl-web/src/base/fphttpserver.pp
index f23105beb7..363986a1cb 100644
--- a/packages/fcl-web/src/base/fphttpserver.pp
+++ b/packages/fcl-web/src/base/fphttpserver.pp
@@ -187,6 +187,7 @@ Type
     Procedure RemoveConnection(aConnection :TFPHTTPConnection); override;
   Public
     Constructor Create(aServer : TFPCustomHTTPServer); override;
+    Destructor Destroy; override;
     Procedure HandleConnection(aConnection : TFPHTTPConnection); override;
     Procedure CloseSockets; override;
     Function GetActiveConnectionCount : Integer; override;
@@ -536,6 +537,13 @@ begin
   Result:=TConnectionList.Create;
 end;
 
+destructor TFPHTTPServerConnectionListHandler.Destroy;
+begin
+  FList.Free;
+
+  inherited Destroy;
+end;
+
 procedure TFPHTTPServerConnectionListHandler.CloseConnectionSocket(aConnection: TFPHTTPConnection; var aContinue: boolean);
 begin
   sockets.CloseSocket(aConnection.Socket.Handle);