--- 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;
+}