Объединение логики кэшей пакетов.

Author: dmpas

src/core/Классы/КэшСкачанныхПакетов.os

@@ -18,7 +18,7 @@
 	ДанныеПакета = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета);
 	ПакетУстановлен = ДанныеПакета <> Неопределено;
 	Если ПакетУстановлен И НЕ ПустаяСтрока(КаталогПоискаБиблиотек) Тогда
-		КаталогБиблиотекПакета = Новый Файл(ОбъединитьПути(ДанныеПакета.КаталогПакета, "..")).ПолноеИмя;
+		КаталогБиблиотекПакета = Новый Файл(ДанныеПакета.КаталогПакета).Путь;
 		ПакетУстановлен = ФС.ПутиРавны(КаталогБиблиотекПакета, КаталогПоискаБиблиотек);
 	КонецЕсли;
 
@@ -32,7 +32,10 @@
 		// @deprecated
 		УстановленнаяВерсия = "0";
 	КонецЕсли;
-	Лог.Отладка("ПакетУстановлен: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)", УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
+
+	Лог.Отладка("ПакетУстановлен: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)",
+		УстановленнаяВерсия,
+		ОписаниеЗависимости.МинимальнаяВерсия);
 
 	ВерсияSNAPSHOT = "SNAPSHOT";
 	Если ОписаниеЗависимости.МинимальнаяВерсия = ВерсияSNAPSHOT И УстановленнаяВерсия = ВерсияSNAPSHOT Тогда
@@ -82,21 +85,6 @@
 
 КонецФункции
 
-Процедура Инициализация()
-	
-	Лог = Логирование.ПолучитьЛог("oscript.app.opm");
-	МассивКаталоговПоискаБиблиотек = Новый Массив;
-
-	КаталогСистемныхБиблиотек = ОбъединитьПути(
-			КаталогПрограммы(),
-			ПолучитьЗначениеСистемнойНастройки("lib.system")
-	);
-
-	МассивКаталоговПоискаБиблиотек.Добавить(КаталогСистемныхБиблиотек);
-	ДобавитьКаталогБиблиотек("./" + КонстантыOpm.ЛокальныйКаталогУстановкиПакетов);
-
-КонецПроцедуры
-
 // Добавляет каталог в список, по которому выполняется поиск библиотек
 Процедура ДобавитьКаталогБиблиотек(Знач Каталог) Экспорт
 

src/core/Классы/КэшУстановленныхПакетов.os

@@ -237,7 +237,7 @@
 Функция ПолучитьУстановленныеПакеты()
 
 	Если ТекущийРежимУстановкиПакетов = РежимУстановкиПакетов.Скачивание Тогда
-		КэшУстановленныхПакетов = Новый КэшСкачанныхПакетов(ЦелевойКаталогУстановки);
+		КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов(ЦелевойКаталогУстановки);
 	Иначе
 		КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов(КаталогУстановкиЗависимостей);
 	КонецЕсли;