Browse Source

Merged revisions 4894 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r4894 | marco | 2006-10-14 00:29:08 +0200 (Sat, 14 Oct 2006) | 2 lines

* fix for popen brokenness
........

git-svn-id: branches/fixes_2_0@4914 -

marco 19 years ago
parent
commit
fb6a8e21f8
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/unix/unix.pp

+ 2 - 2
rtl/unix/unix.pp

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