diff options
| -rw-r--r-- | lib/ASM/DB.pm | 2 | ||||
| -rwxr-xr-x | meta.pl | 1 |
2 files changed, 2 insertions, 1 deletions
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}; @@ -2,6 +2,7 @@ use strict; use warnings; +no if $] >= 5.017011, warnings => 'experimental::smartmatch'; use FindBin; use lib "$FindBin::Bin/lib";; |
