Sorting change

diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi
index ef3b3aaacbce7c32cf2cd9d8d2883ce28b4acfaa..c0dbfd26ba5444e1f008328674710f973e436800 100755 (executable)
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi
@@ -122,7 +122,7 @@ $tpl->assign(ACTION => $action);
 $subscribers = get_subscribers();
 
 my $i = 0;
-for my $address (sort keys %$subscribers) {
+for my $address (sort {lc $a cmp lc $b} keys %$subscribers) {
        $tpl->assign(EMAIL => $address,
                                 ID => $i++,
                                 SCHECKED => $subscribers->{$address}->{subscriber} ? 'checked' : '',