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