paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Modify file permissions when global socket

Browse Source 
git-svn-id: trunk@19627 -
This commit is contained in:
michael 2011-11-11 17:27:37 +00:00
parent 5d71bf3b60
commit ab7a60a68c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-process/src/unix/simpleipc.inc
View File

@ -145,11 +145,17 @@ end;
procedure TPipeServerComm.StartServer;
const
PrivateRights = S_IRUSR or S_IWUSR;
GlobalRights = PrivateRights or S_IRGRP or S_IWGRP or S_IROTH or S_IWOTH;
Rights : Array [Boolean] of Integer = (PrivateRights,GlobalRights);
begin
If not FileExists(FFileName) then
If (fpmkFifo(FFileName,438)<>0) then
DoError(SErrFailedToCreatePipe,[FFileName]);
FStream:=TFileStream.Create(FFileName,fmOpenReadWrite+fmShareDenyNone);
FStream:=TFileStream.Create(FFileName,fmOpenReadWrite+fmShareDenyNone,Rights[Owner.Global]);
end;
procedure TPipeServerComm.StopServer;