Add 'adapt' to the list of layers to match for heuristical pacakge attribution and for truclean
authorDario Sestito <darios@symbian.org>
Tue, 31 Aug 2010 16:14:25 +0100
changeset 311 09f57a9bad07
parent 306 73890f073898
child 312 510bd35e96e2
Add 'adapt' to the list of layers to match for heuristical pacakge attribution and for truclean
uh_parser/RaptorError.pm
uh_parser/RaptorUnreciped.pm
uh_parser/RaptorWarning.pm
uh_parser/truclean.pl
--- a/uh_parser/RaptorError.pm	Fri Jul 30 17:06:23 2010 +0100
+++ b/uh_parser/RaptorError.pm	Tue Aug 31 16:14:25 2010 +0100
@@ -193,7 +193,7 @@
 	my $package = '';
 	# if bldinf attribute is not available then heuristically attempt to determine the package
 	if (!$raptor_error_info->{bldinf} &&
-		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s)
+		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation|adapt)[/\\][a-zA-Z]+[/\\]?),s)
 	{
 		$raptor_error_info->{bldinf} = "$1... (guessed)";
 	}
--- a/uh_parser/RaptorUnreciped.pm	Fri Jul 30 17:06:23 2010 +0100
+++ b/uh_parser/RaptorUnreciped.pm	Tue Aug 31 16:14:25 2010 +0100
@@ -169,7 +169,7 @@
 		my $package = '';
 		my $guessed_bldinf = '';
 		# if bldinf attribute is not available then heuristically attempt to determine the package
-		if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s)
+		if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation|adapt)[/\\][a-zA-Z]+[/\\]?),s)
 		{
 			$guessed_bldinf = "$1... (guessed)";
 		}
--- a/uh_parser/RaptorWarning.pm	Fri Jul 30 17:06:23 2010 +0100
+++ b/uh_parser/RaptorWarning.pm	Tue Aug 31 16:14:25 2010 +0100
@@ -123,7 +123,7 @@
 	my $package = '';
 	# if bldinf attribute is not available then heuristically attempt to determine the package
 	if (!$raptor_warning_info->{bldinf} &&
-		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s)
+		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation|adapt)[/\\][a-zA-Z]+[/\\]?),s)
 	{
 		$raptor_warning_info->{bldinf} = "$1... (guessed)";
 	}
--- a/uh_parser/truclean.pl	Fri Jul 30 17:06:23 2010 +0100
+++ b/uh_parser/truclean.pl	Tue Aug 31 16:14:25 2010 +0100
@@ -64,7 +64,7 @@
 $packageexpr =~ s,^/,,;
 if (-d "$releaseablesdir/sf")
 {
-	$packageexpr = "sf/$packageexpr" if ($packageexpr =~ m,^(adaptation|app|mw|os|tools),);
+	$packageexpr = "sf/$packageexpr" if ($packageexpr =~ m,^(adaptation|adapt|app|mw|os|tools),);
 }
 
 my @targetfiles = grep {-f$_} glob("$releaseablesdir/$packageexpr/info.tsv");