paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for popen brokenness

Browse Source 
git-svn-id: trunk@4894 -
This commit is contained in:
marco 2006-10-13 22:29:08 +00:00
parent 9288a2f76d
commit 94e0b66d0a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/unix.pp
View File

@ -828,7 +828,7 @@ begin
close(pipo);
{$endif USE_VFORK}
end;
if ret=1 then
if ret=-1 then
fpexit(127);
end;
{$if defined(FPC_USE_FPEXEC) and not defined(USE_VFORK)}
@ -943,7 +943,7 @@ begin
close(pipo);
{$endif USE_VFORK}
end;
if ret=1 then
if ret=-1 then
fpexit(127);
end;
{$if defined(FPC_USE_FPEXEC) and not defined(USE_VFORK)}