From 1f94973bd2135275f4bd6e5d4de7bcea482a3c5a Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sun, 9 Feb 2020 21:30:55 -0800
Subject: [PATCH] Users: improve find_user

---
 PBot/Users.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/PBot/Users.pm b/PBot/Users.pm
index e3f32508..4a5bb282 100644
--- a/PBot/Users.pm
+++ b/PBot/Users.pm
@@ -184,8 +184,15 @@ sub find_user {
   $hostmask = '.*' if not defined $hostmask;
   $hostmask = lc $hostmask;
 
+  my $sort;
+  if ($channel =~ m/^#/) {
+    $sort = sub { $a cmp $b };
+  } else {
+    $sort = sub { $b cmp $a };
+  }
+
   my $user = eval {
-    foreach my $channel_regex (keys %{ $self->{users}->{hash} }) {
+    foreach my $channel_regex (sort $sort keys %{ $self->{users}->{hash} }) {
       if ($channel !~ m/^#/ or $channel =~ m/^$channel_regex$/i) {
         foreach my $hostmask_regex (keys %{ $self->{users}->{hash}->{$channel_regex} }) {
           next if $hostmask_regex eq '_name';