diff options
Diffstat (limited to 'rtl/unix/sysutils.pp')
| -rw-r--r-- | rtl/unix/sysutils.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp index a719feeddc..34d9d99b2d 100644 --- a/rtl/unix/sysutils.pp +++ b/rtl/unix/sysutils.pp @@ -524,9 +524,9 @@ Function FileAge (Const FileName : String): Longint; Var Info : Stat; begin - If fpstat (pointer(FileName),Info)<0 then + If (fpstat (pointer(FileName),Info)<0) or fpS_ISDIR(info.st_mode) then exit(-1) - else + else Result:=UnixToWinAge(info.st_mtime); end; {$endif} |