# HG changeset patch # User Dario Sestito # Date 1273656746 -3600 # Node ID 09b83ca8e0cf98571a9ab2f47cac403142010135 # Parent dfa3d8557c6101165951cbdc7ad88446bd2e3cc1 Revert to version 236 as 237 breaks the parser diff -r dfa3d8557c61 -r 09b83ca8e0cf uh_parser/RaptorError.pm --- a/uh_parser/RaptorError.pm Tue May 11 13:39:54 2010 +0100 +++ b/uh_parser/RaptorError.pm Wed May 12 10:32:26 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|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) + $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) { $raptor_error_info->{bldinf} = "$1... (guessed)"; } @@ -207,7 +207,7 @@ $raptor_error_info->{bldinf} =~ s,^[A-Za-z]:,,; $raptor_error_info->{bldinf} =~ s,[\\],/,g; - if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) + if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r dfa3d8557c61 -r 09b83ca8e0cf uh_parser/RaptorRecipe.pm --- a/uh_parser/RaptorRecipe.pm Tue May 11 13:39:54 2010 +0100 +++ b/uh_parser/RaptorRecipe.pm Wed May 12 10:32:26 2010 +0100 @@ -256,7 +256,7 @@ $recipe_info->{bldinf} =~ s,[\\],/,g; my $package = ''; - if ($recipe_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) + if ($recipe_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r dfa3d8557c61 -r 09b83ca8e0cf uh_parser/RaptorUnreciped.pm --- a/uh_parser/RaptorUnreciped.pm Tue May 11 13:39:54 2010 +0100 +++ b/uh_parser/RaptorUnreciped.pm Wed May 12 10:32:26 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|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) + if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) { $guessed_bldinf = "$1... (guessed)"; } @@ -183,7 +183,7 @@ $guessed_bldinf =~ s,^[A-Za-z]:,,; $guessed_bldinf =~ s,[\\],/,g; - if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) + if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r dfa3d8557c61 -r 09b83ca8e0cf uh_parser/RaptorWarning.pm --- a/uh_parser/RaptorWarning.pm Tue May 11 13:39:54 2010 +0100 +++ b/uh_parser/RaptorWarning.pm Wed May 12 10:32:26 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|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) + $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) { $raptor_warning_info->{bldinf} = "$1... (guessed)"; } @@ -137,7 +137,7 @@ $raptor_warning_info->{bldinf} =~ s,^[A-Za-z]:,,; $raptor_warning_info->{bldinf} =~ s,[\\],/,g; - if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) + if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r dfa3d8557c61 -r 09b83ca8e0cf uh_parser/releaseables.pm --- a/uh_parser/releaseables.pm Tue May 11 13:39:54 2010 +0100 +++ b/uh_parser/releaseables.pm Wed May 12 10:32:26 2010 +0100 @@ -225,7 +225,7 @@ $normalized =~ s,^[A-Za-z]:,,; $normalized =~ s,[\\],/,g; - $normalized =~ m,^/sf|sftools/([^/]+)/([^/]+)/,; + $normalized =~ m,^/sf/([^/]+)/([^/]+)/,; my $layer = $1; my $package = $2; diff -r dfa3d8557c61 -r 09b83ca8e0cf uh_parser/uh.pl --- a/uh_parser/uh.pl Tue May 11 13:39:54 2010 +0100 +++ b/uh_parser/uh.pl Wed May 12 10:32:26 2010 +0100 @@ -174,7 +174,7 @@ } if ($failure->{component}) { - if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown|dev)/[a-zA-Z]+),) + if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) { $failure_package = $1; } @@ -502,7 +502,7 @@ $bldinf =~ s,[\\],/,g; my $package = ''; - if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown|dev)/[a-zA-Z]+),) + if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) { $package = $1; }