diff -r 3487e8b7ed38 -r f593b7acdb37 uh_parser/uh.pl --- a/uh_parser/uh.pl Thu May 06 12:47:02 2010 +0100 +++ b/uh_parser/uh.pl Thu May 06 18:06:35 2010 +0100 @@ -172,7 +172,7 @@ } if ($failure->{component}) { - if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation)/[^/]*),) + if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) { $failure_package = $1; } @@ -487,7 +487,7 @@ $bldinf =~ s,[\\],/,g; my $package = ''; - if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[^/]*),) + if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) { $package = $1; } @@ -499,5 +499,14 @@ $allpackages->{$package} = 1; } - return sort {$a cmp $b} keys %{$allpackages}; -} \ No newline at end of file + # sort packages, but set unknown first + my @sorted = (); + if (defined $allpackages->{'unknown/unknown'}) + { + push @sorted, 'unknown/unknown'; + undef $allpackages->{'unknown/unknown'}; + } + push @sorted, sort {$a cmp $b} keys %{$allpackages}; + + return @sorted; +}