2
0
Эх сурвалжийг харах

* Do not lock output files

Michaël Van Canneyt 1 жил өмнө
parent
commit
2e1c7cbc10

+ 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;