502 	# sort packages, but set unknown first

   502 	# sort packages, but set unknown first

   503 	my @sorted = ();

   503 	my @sorted = ();

   504 	if (defined $allpackages->{'unknown/unknown'})

   504 	if (defined $allpackages->{'unknown/unknown'})

   505 	{

   505 	{

   506 		push @sorted, 'unknown/unknown';

   506 		push @sorted, 'unknown/unknown';

   508 	}

   508 	}

   509 	push @sorted, sort {$a cmp $b} keys %{$allpackages};

   509 	push @sorted, sort {$a cmp $b} keys %{$allpackages};

   510 	

   510 	

   511 	return @sorted;

   511 	return @sorted;

   512 }

   512 }