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

* fix 5599 (wrong logic in existance determination)

Browse Source 
git-svn-id: trunk@5617 -
This commit is contained in:
Almindor 2006-12-17 10:31:59 +00:00
parent a05469c221
commit 0385b4dad7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/unix/process.inc
View File

@ -270,12 +270,17 @@ begin
If (PName='') then If (PName='') then
PName:=CommandLine; PName:=CommandLine;
end; end;
if (pos('/',PName)<>1) then
P2:=FileSearch(Pname,fpgetenv('PATH')); if not FileExists(PName) then
P2 := FileSearch(Pname,fpgetenv('PATH'))
else
P2 := PName;
If (P2='') then If (P2='') then
Raise EProcess.CreateFmt(SErrNoSuchProgram,[PName]) Raise EProcess.CreateFmt(SErrNoSuchProgram,[PName])
else else
PName:=P2; PName:=P2;
Pid:=fpfork; Pid:=fpfork;
if Pid<0 then if Pid<0 then
Raise EProcess.Create('Failed to Fork process'); Raise EProcess.Create('Failed to Fork process');