Преглед на файлове

Fix check before calling AfterCleanProc

Pierre Muller преди 2 седмици
родител
ревизия
ab9b678130
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -9325,7 +9325,7 @@ procedure TBuildEngine.DoAfterClean(APackage: TPackage);
 begin
   If Assigned(APackage.AfterClean) then
     APackage.AfterClean(APackage);
-  If Assigned(APackage.AfterInstallProc) then
+  If Assigned(APackage.AfterCleanProc) then
     APackage.AfterCleanProc(APackage);
   ExecuteCommands(APackage.Commands,caAfterClean);
 end;