Browse Source

* Do not lock output files

Michaël Van Canneyt 1 year ago
parent
commit
2e1c7cbc10
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-process/src/unix/process.inc

+ 2 - 1
packages/fcl-process/src/unix/process.inc

@@ -585,7 +585,8 @@ begin
     phtInput:  Result:=FileOpen(aFileName,fmOpenRead);
     phtOutput,
     phtError: if FileExists(aFileName) then
-                Result:=FileOpen(aFileName,fmOpenWrite or fmShareDenyNone)
+                // No locking for existing file. (e.g. /dev/null cannot be locked)
+                Result:=FileOpen(aFileName,fmOpenWrite or fmShareNoLocking)
               else
                 Result:=FileCreate(aFileName,fmShareDenyNone,DefaultRights)
   end;