fixed TAcmeLetsEncrypt unexpected GPF

synopse · Sep 12, 2023 · 2eb35d6 · 2eb35d6
1 parent 46396fc
commit 2eb35d6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.1.5862'
+'2.1.5863'
diff --git a/src/net/mormot.net.acme.pas b/src/net/mormot.net.acme.pas
@@ -1213,8 +1213,8 @@ function TAcmeLetsEncrypt.GetClient(
   for i := 0 to length(fClient) - 1 do
   begin
     result := fClient[i];
-    if FindPropName(pointer(result.Subjects), ServerName,
-         length(result.Subjects)) >= 0 then
+    if FindCsvIndex(
+         pointer(result.Subjects), ServerName, ',', {casesens=}false) >= 0 then
       exit;
   end;
   result := nil; // not found