From 5b8d0451bb5f092372c65ad59e5cc28b501e3c7e Mon Sep 17 00:00:00 2001
From: Doug Freed <dwfreed@mtu.edu>
Date: Fri, 11 Dec 2015 09:01:29 +0400
Subject: Fix warnings for newer perl

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

(limited to 'lib/ASM/DB.pm')

diff --git a/lib/ASM/DB.pm b/lib/ASM/DB.pm
index 86a1c78..5ed239b 100644
--- a/lib/ASM/DB.pm
+++ b/lib/ASM/DB.pm
@@ -93,7 +93,7 @@ sub actionlog
     $host = $event->{host};
   } elsif (($event->{type} eq 'part') && ($event->{args}->[0] =~ /^requested by (\S+) \((.*)\)/)) {
     $bynick = $1;
-    $reason = $2 unless (lc $reason eq lc $event->{nick});
+    $reason = $2 unless (lc $2 eq lc $event->{nick});
     $action = 'remove';
     $nick = $event->{nick};
     $user = $event->{user};
-- 
cgit v1.2.3