mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Hang when read from a named pipe (fixes #2639)

Browse source 
(cherry picked from commit 8c370fd8ea)
This commit is contained in:
Alexander Koblov 2025-12-04 19:25:16 +03:00
commit 2bd7e55427
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
components/doublecmd/dcosutils.pas
View file

@ -49,6 +49,7 @@ const
fmOpenSync = $10000;
fmOpenDirect = $20000;
fmOpenNoATime = $40000;
fmOpenSpecial = $80000;
{$IF DEFINED(UNIX)}
ERROR_NOT_SAME_DEVICE = ESysEXDEV;
@ -890,6 +891,8 @@ begin
end;
end;
{$ELSE}
var
Info: BaseUnix.Stat;
begin
repeat
Result:= fpOpen(UTF8ToSys(FileName), AccessModes[Mode and 3] or
@ -898,6 +901,18 @@ begin
if Result <> feInvalidHandle then
begin
FileCloseOnExec(Result);
if (Mode and fmOpenSpecial = 0) then
begin
if fpFStat(Result, Info) = 0 then
begin
if FPS_ISFIFO(Info.st_mode) then
begin
FileClose(Result);
errno:= ESysEINVAL;
Exit(feInvalidHandle);
end;
end;
end;
{$IF DEFINED(DARWIN)}
if (Mode and (fmOpenSync or fmOpenDirect) <> 0) then
begin