Fix removing files on scratch

install/calculate

@@ -3684,6 +3684,12 @@ sub profile{
 
 		#проверим имя файла фрофиля перед переносом в систему
 		$allocation = check_name($allocation); if(!$allocation){next;}
+			
+		#сохраним обработанный файл в директории установки
+		$allocation=~m/^(.*\/)([^\/]+)$/;
+		my $namepath = $1;
+		my $nameprof = $2;
+		my $nameorig = $nameprof;
 
 		#извлечем текстовый файл профиля
 		if(`$data{path} file "$_" | grep text`){
@@ -3703,12 +3709,6 @@ sub profile{
 				}
 			}
 
-			#сохраним обработанный файл в директории установки
-			$allocation=~m/^(.*\/)([^\/]+)$/;
-			my $namepath = $1;
-			my $nameprof = $2;
-			my $nameorig = $nameprof;
-
 			if($data{pass} eq 'install' && $data{scratch_ws} &&
 				(substr($nameprof,0,1) eq "~" || substr($nameprof,0,1) eq "^")
 			){