X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/7b8a26e75924ecff47d3e347eb4e2685656c728e..803cf6668d9e89c244e5fbc7f996a460470338dd:/unitfork.pas

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}