- $linksub = sub {
- my $maint = shift; my $maintfull = $maint;
- foreach my $x (values %maintainers) {
- if (emailfromrfc822($x) eq $maint) {
- $maintfull = $x; last;
- }
- }
- sprintf('<a href="%s">%s</a>',
+ my %email2maint = ();
+ for my $x (values %maintainers) {
+ my $y = emailfromrfc822($x);
+ $email2maint{$y} = $x unless (defined $email2maint{$y});
+ }
+ foreach my $maint (keys %count) {
+ $sortkey{$maint} = lc $email2maint{$maint} || "(unknown)";
+ $htmldescrip{$maint} = sprintf('<a href="%s">%s</a>',