Fix function cleaning initrd file

Change.log

@@ -1,5 +1,9 @@
 CHANGE LOG
 
+1.3.0
+* Move profile from build system to Calculate Profile.
+* Fix function cleaning initrd file.
+
 1.2.3
 * Использование Calculate Overlay для профилей сборки системы
 

install/calculate

@@ -6433,7 +6433,10 @@ sub initrd_clean{
 	#удалим неработающие модули из initrd, за некоторым исключением
 	foreach(`$data{path} find $tmpdir/lib/modules/ -name *.ko`){
 		m/\/([^\/]+)\.ko$/;
-		if(!$mod_run{$1} &&
+		#проверим варианты где "-" либо "_" меняются в названии модуля и файла
+		my $underline = $1; my $dash = $underline;
+		$underline=~s/\-/\_/g; $dash =~s/_/\-/g;
+		if(!$mod_run{$underline} && !$mod_run{$dash} &&
 		   $1 ne 'squashfs' &&
 		   $1 ne 'zlib_inflate' &&
 		   $1 ne 'aufs' &&