From d7911799068d97efe3695e4097c9ab188b54218c Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Wed, 1 Oct 2025 22:32:46 +0000
Subject: [PATCH 1/1] unitfork: getfs was deprecated in fpc 2.6.2, use
 getfilehandle

---
 unitfork.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/unitfork.pas b/unitfork.pas
index 3bcb3b1..9e8503f 100644
--- a/unitfork.pas
+++ b/unitfork.pas
@@ -65,7 +65,11 @@ begin
     if ioresult <> 0 then exit;
   end;
 
+  {$IF FPC_FULLVERSION>=20602}
+  handle := getfilehandle(pidfile);
+  {$else}
   handle := getfs(pidfile);
+  {$endif}
 
   //debugout('got handle');
   {check if locking is possible: it's not if other process still runs}
-- 
2.30.2