#33 Вернул обход ошибки, связанной с переменными среды при старте нов…

…ого процесса (#46)
artbear · May 30, 2019 · 29e73e4 · 29e73e4
1 parent 307c735
commit 29e73e4
Showing 1 changed file with 24 additions and 7 deletions.
diff --git a/src/Команда.os b/src/Команда.os
@@ -394,15 +394,32 @@
 			Процесс = СоздатьПроцесс(СтрокаЗапуска, РабочийКаталог, ПерехватыватьПотоки, ПерехватыватьПотоки, КодировкаВывода, ПеременныеСредыПроцесса);
 		КонецЕсли;
 
-
-	Исключение
-
-		Инфо = ИнформацияОбОшибке();
-
-		ВызватьИсключение Инфо.ПодробноеОписаниеОшибки();
+    Исключение
+
+        Инфо = ИнформацияОбОшибке();
+
+        // TODO код проверки на регулярку (ниже) убрать после исправления в движке OneScript
+        РегуляркаОшибкиПеременныхСреды = Новый РегулярноеВыражение("\(System\.ArgumentException\):[^:]+:.*HOME[^:]+:.*home");
+        Если РегуляркаОшибкиПеременныхСреды.Совпадает(Инфо.Описание) Тогда
+            Лог.Предупреждение("Возникла ошибка, связанная с переменными среды при старте нового процесса
+                |%1
+                |
+                |Выполняю старт процесса без указания переменных среды.", Инфо.Описание);
+
+            Лог.Отладка("Полное описание ошибки:
+                |%1", Инфо.ПодробноеОписаниеОшибки());
+
+            Если КодировкаВывода = Неопределено Тогда
+                Процесс = СоздатьПроцесс(СтрокаЗапуска, РабочийКаталог, ПерехватыватьПотоки, ПерехватыватьПотоки);
+            Иначе
+                Процесс = СоздатьПроцесс(СтрокаЗапуска, РабочийКаталог, ПерехватыватьПотоки, ПерехватыватьПотоки, КодировкаВывода);        
+            КонецЕсли;
+        Иначе
+            ВызватьИсключение Инфо.ПодробноеОписаниеОшибки();
+        КонецЕсли;
 
 	КонецПопытки;
-
+	
 	Процесс.Запустить();
 
 	Возврат Процесс;