Sfoglia il codice sorgente

* Do not lock output files

Michaël Van Canneyt 1 anno fa
parent
commit
2e1c7cbc10
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  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;