From d6715fad8d8d9bfe243b0911bc90cd806fbe7e2d Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Fri, 3 Aug 2018 13:38:28 -0700
Subject: [PATCH] Do not infinitely WHO empty/non-channels

---
 PBot/IRCHandlers.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/PBot/IRCHandlers.pm b/PBot/IRCHandlers.pm
index 85aa251f..a69f2017 100644
--- a/PBot/IRCHandlers.pm
+++ b/PBot/IRCHandlers.pm
@@ -540,6 +540,7 @@ sub on_endofwho {
   my ($self, $event_type, $event) = @_;
   $self->{pbot}->{logger}->log("WHO session $last_who_id ($who_cache{$last_who_id}) completed.\n");
   delete $who_cache{$last_who_id};
+  delete $who_queue{$last_who_id};
   $who_pending = 0;
   return 0;
 }
@@ -565,6 +566,7 @@ sub check_pending_whos {
     $self->{pbot}->{logger}->log("sending WHO to $who_queue{$id} [$id]\n");
     $self->{pbot}->{conn}->sl("WHO $who_queue{$id} %tuhnar,$id");
     $who_pending = 1;
+    $last_who_id = $id;
     last;
   }
 }