Merge pull request #248 from dmpas/feature/opm-cycled

Откат определения каталога установки пакетов.

Author: nixel2007

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

@@ -18,7 +18,7 @@
 ДанныеПакета = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета);
 ПакетУстановлен = ДанныеПакета <> Неопределено;
 Если ПакетУстановлен И НЕ ПустаяСтрока(КаталогПоискаБиблиотек) Тогда
-КаталогБиблиотекПакета = Новый Файл(ДанныеПакета.КаталогПакета).Путь;
+КаталогБиблиотекПакета = Новый Файл(ОбъединитьПути(ДанныеПакета.КаталогПакета, "..")).ПолноеИмя;
 ПакетУстановлен = ФС.ПутиРавны(КаталогБиблиотекПакета, КаталогПоискаБиблиотек);
 КонецЕсли;
 
@@ -42,20 +42,20 @@
 УстановленаКорректнаяВерсия = Истина;
 ИначеЕсли ОписаниеЗависимости.МинимальнаяВерсия = ВерсияSNAPSHOT И УстановленнаяВерсия <> ВерсияSNAPSHOT Тогда
 УстановленаКорректнаяВерсия = Ложь;
-Иначе
-Если ОписаниеЗависимости.МинимальнаяВерсия = Неопределено Тогда
-УстановленаКорректнаяВерсия = Истина;
-Иначе
-Попытка
-// Сначала пытаемся использовать семвер
-РезультатСравнения = Версии.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
-Исключение
-// Если семвер не может обработать версию (например, 4-значную), используем модуль РаботаСВерсиями
-РезультатСравнения = РаботаСВерсиями.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
-КонецПопытки;
-
-УстановленаКорректнаяВерсия = РезультатСравнения >= 0;
-КонецЕсли;
+Иначе
+Если ОписаниеЗависимости.МинимальнаяВерсия = Неопределено Тогда
+УстановленаКорректнаяВерсия = Истина;
+Иначе
+Попытка
+// Сначала пытаемся использовать семвер
+РезультатСравнения = Версии.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
+Исключение
+// Если семвер не может обработать версию (например, 4-значную), используем модуль РаботаСВерсиями
+РезультатСравнения = РаботаСВерсиями.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
+КонецПопытки;
+
+УстановленаКорректнаяВерсия = РезультатСравнения >= 0;
+КонецЕсли;
 КонецЕсли;
 
 Лог.Отладка("Пакет установлен: " + ПакетУстановлен);
@@ -140,10 +140,10 @@
 
 Возврат ПутьКФайлуМетаданных;
 
-КонецФункции
-
-
-
+КонецФункции
+
+
+
 Процедура ПриСозданииОбъекта(КаталогПоискаБиблиотек = "")
 
 Лог = Логирование.ПолучитьЛог("oscript.app.opm");