From 2bd1a4861435b8b19d1f4b4c66d77436d39db54b Mon Sep 17 00:00:00 2001
From: Doug Freed <dwfreed@mtu.edu>
Date: Fri, 15 Jan 2016 00:14:38 -0700
Subject: Fuck perl

---
 lib/ASM/Event.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/ASM/Event.pm b/lib/ASM/Event.pm
index f78d698..96f8783 100644
--- a/lib/ASM/Event.pm
+++ b/lib/ASM/Event.pm
@@ -672,7 +672,7 @@ sub on_banlist
           my ($packet) = @_;
           my @ips = ASM::Util->stripResp($packet);
           foreach $ip (@ips) {
-            $::sc{$chan}{ipbans}{$ip} = { bannedBy => $banner, bannedOn => $bantime };
+            $::sc{$chan}{ipbans}{$ip} = { bannedBy => $banner, bannedOn => $bantime } if defined($ip);
           }
         }, $host, 'A');
     }
@@ -706,7 +706,7 @@ sub on_quietlist
           my ($packet) = @_;
           my @ips = ASM::Util->stripResp($packet);
           foreach $ip (@ips) {
-            $::sc{$chan}{ipquiets}{$ip} = { bannedBy => $banner, bannedOn => $bantime };
+            $::sc{$chan}{ipquiets}{$ip} = { bannedBy => $banner, bannedOn => $bantime } if defined($ip);
           }
         }, $host, 'A');
     }
-- 
cgit v1.2.3