From 406d5f414736946762cbc3aab6db1903ff480498 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 1 Aug 2024 18:39:27 +0200
Subject: [PATCH] * Dump certificate in temp dir. Fixes issue #40872

---
 packages/openssl/src/fpopenssl.pp | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/packages/openssl/src/fpopenssl.pp b/packages/openssl/src/fpopenssl.pp
index 773761c33a..547993d8a0 100644
--- a/packages/openssl/src/fpopenssl.pp
+++ b/packages/openssl/src/fpopenssl.pp
@@ -31,11 +31,7 @@ uses
 
 {$IFDEF DUMPCERT}
 Const
-{$IFDEF UNIX}
-  DumpCertFile = '/tmp/x509.txt';
-{$ELSE}
-  DumpCertFile = 'C:\temp\x509.txt';
-{$ENDIF}
+  DumpCertFile = 'x509.txt';
 {$ENDIF}
 
 Type
@@ -303,7 +299,7 @@ begin
     With TStringList.Create do
       try
         Add(S);
-        SaveToFile(DumpCertFile);
+        SaveToFile(IncludeTrailingPathDelimiter(GetTempDir)+DumpCertFile);
       finally
         Free;
       end;