From 313dc69a71a35f4d6e682ea32e22dfa7cf9eded0 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Tue, 19 Jan 2016 22:32:49 -0700
Subject: Suppress a warning when someone was /kill'd without a reason

---
 lib/ASM/DB.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/ASM/DB.pm b/lib/ASM/DB.pm
index 5852282..762d40a 100644
--- a/lib/ASM/DB.pm
+++ b/lib/ASM/DB.pm
@@ -76,7 +76,7 @@ sub actionlog
     if ($quitmsg =~ /^Killed \((\S+) \((.*)\)\)$/) {
       $bynick = $1;
       $reason = $2 unless ($2 eq '<No reason given>');
-      return if ($reason =~ /Nickname regained by services/);
+      return if (($reason // '') =~ /Nickname regained by services/);
       $action = 'kill';
     } elsif ($quitmsg =~ /^K-Lined$/) {
       $action = 'k-line';
-- 
cgit v1.2.3