Преглед изворни кода

* Packages can only be broken when they are installed

git-svn-id: trunk@35541 -
joost пре 8 година
родитељ
комит
910c05f942
1 измењених фајлова са 6 додато и 0 уклоњено
  1. 6 0
      packages/fppkg/src/pkgfppkg.pp

+ 6 - 0
packages/fppkg/src/pkgfppkg.pp

@@ -333,6 +333,12 @@ var
 begin
   result:=false;
 
+  if Assigned(APackage.Repository) and (APackage.Repository.RepositoryType <> fprtInstalled) then
+    begin
+    Result := False;
+    Exit;
+    end;
+
   EnterFindBrokenPackages;
   try
     HashPtr := PtrInt(FBrokenPackagesDictionary.Find(APackage.Name));