Преглед на файлове

* Do not lock output files

Michaël Van Canneyt преди 1 година
родител
ревизия
2e1c7cbc10
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  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;