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

* Solved exception after a package has been installed

Browse Source 
git-svn-id: trunk@34639 -
This commit is contained in:
joost 2016-10-07 14:45:26 +00:00
parent 16dfb839d8
commit 6d7cfaf782
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fppkg/src/pkgcommands.pp
View File

@ -413,7 +413,7 @@ begin
InstallRepo := GFPpkg.RepositoryByName(GFPpkg.Options.CommandLineSection.InstallRepository); InstallRepo := GFPpkg.RepositoryByName(GFPpkg.Options.CommandLineSection.InstallRepository);
if Assigned(InstallRepo) then if Assigned(InstallRepo) then
begin begin
P := InstallRepo.PackageByName(S); P := InstallRepo.FindPackage(S);
if not Assigned(P) then if not Assigned(P) then
P := InstallRepo.AddPackage(S); P := InstallRepo.AddPackage(S);
if Assigned(P) then if Assigned(P) then