Changeset fb6e8e3 for perl

Timestamp:

Feb 23, 2011, 9:25:56 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

7659079

Parents:

259e0475

git-author:

Nelson Elhage <nelhage@mit.edu> (06/17/10 09:41:34)

git-committer:

Nelson Elhage <nelhage@mit.edu> (02/23/11 21:25:56)

Message:

Sort the output of :irc-names

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -260 +260 @@
 }
 
+sub cmp_user {
+    my ($lhs, $rhs) = @_;
+    my ($sigil_l) = ($lhs =~ m{^([+@]?)});
+    my ($sigil_r) = ($rhs =~ m{^([+@]?)});
+    my %rank = ('@' => 1, '+' => 2, '' => 3);
+    return ($rank{$sigil_l} <=> $rank{$sigil_r}) ||
+            $lhs cmp $rhs;
+}
+
 sub on_endofnames {
     my ($self, $evt) = @_;
     return unless $self->names_tmp;
     my $names = BarnOwl::Style::boldify("Members of " . [$evt->args]->[1] . ":\n");
-    for my $name (@{$self->names_tmp}) {
+    for my $name (sort {cmp_user($a, $b)} @{$self->names_tmp}) {
         $names .= "  $name\n";
     }