equal
deleted
inserted
replaced
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'; |
507 undef $allpackages->{'unknown/unknown'}; |
507 delete $allpackages->{'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 } |