From ecfac55745d2f41d1f8f25ee51a82f07ed693f83 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Fri, 25 Jun 2021 09:35:19 -0700
Subject: [PATCH] IRCHandlers: er, strip leading - when ISUPPORT removes
 support

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

diff --git a/PBot/IRCHandlers.pm b/PBot/IRCHandlers.pm
index 7973627b..c204b3ea 100644
--- a/PBot/IRCHandlers.pm
+++ b/PBot/IRCHandlers.pm
@@ -576,7 +576,7 @@ sub on_isupport {
     foreach my $arg (@{$event->{event}->{args}}) {
         my ($key, $value) = split /=/, $arg;
 
-        if ($key =~ /^-/) {
+        if ($key =~ s/^-//) {
             # server removed suppport for this key
             delete $self->{pbot}->{isupport}->{$key};
         } else {