181 			# normalize bldinf path

   181 			RaptorCommon::normalize_bldinf_path(\$guessed_bldinf);

   182 			$guessed_bldinf = lc($guessed_bldinf);

   182 			

   183 			$guessed_bldinf =~ s,^[A-Za-z]:,,;

   183 			$package = RaptorCommon::get_package_subpath($guessed_bldinf);

   184 			$guessed_bldinf =~ s,[\\],/,g;

   184 			$package =~ s,/,_,g;

   185 			

   186 			if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),)

   187 			{

   188 				$package = $1;

   189 				$package =~ s,/,_,;

   190 			}